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by Dave Bohlke 



A BASIC Compiler in BASIC! Run your source program in 
BASIC, compile it into FAST Z-80 Code and execute the compiled 
version — all without reloading. 26 integer variables, GOTO, 
GOSUB, END, REM, RND, LET, +,*,/, IF, THEN, ELSE, <,=,>, 
INKEY$, CLS, PRINT@, CHR$, PEEK, POKE. Compiled programs 
may be saved via TAPEDISK. 

Supplied with game program, "SD TIC TAC TOE", which uses all 
of the TINY COMP Statement set and is ready to compile. 

Manual includes several sample programs as well as thorough 
documentation of the Compiler for those who like to know "how 
things work" and for those who might even wish to EXPAND on 
TINY COMP's capabilities. j^^ version: $19.95 

Disk version: $24.95 

TheSatiware Exchange 

6 SouthStreei, Box 6d,Milford,NH 03055 603'673'5144 



C^^JcieJ 

YOUR BASIC SOFTWARE MAGAZINE VOL2, N0.8 

IN THIS ISSUE . . . 

LIVEKEYS-The World's Smallest 

Word Processor by a. DouglMWwbeck 12 

44,000 STAR TREK Program by LmceMickius 18 

Review of TYCOON byBradCwiwron 37 

STAR TREK III.4 by UnceMlcMus 40 

DAY OF THE WEEK by Qeorge Blank 69 

Encounter in the Near Tholian Sector 

by Barry L Adams 72 

REGULAR FEATURES ... 

Outgoing Mail byOaorge Blank 6 

INPUT 68 

Programming Hints 88,89 

Bug Report 89 

Market Basket 90,93 

Convenient Order Forms 94,95 




^ 




%i/ 



^ "^ dorporakum for Um^r kdp omd eooptmkom m 
^^fl proitetmf mu imms, mtJjmpnmJtmgptehirwtfrom 
7^ Am mwvm |0 liLlrak ti ITtB P***^ «•« 



•^^^■P^.^^w 1 ^ ^'^ pomr fmUmm amJ ^ am Urn 

JN. . VHBI^Ir ■ I MMPW a fcajf da m n hmma 

3 




The new 
word processor 
from Radio Shack! 

SCRIPSIT will produce letters or any 
material. The documents can be 
stored on "^dlsk for revision and update. 

'FEATURES: 

• Lower case capability 

• Total document formatting 

• Error correction by deletion, insertion, overwriting 

and exchanging 

• Automatic headers, footers and page numbers 

• Global find, replace and delete 

• Operator-defined blocks for hyphenation and 

editing 

REQUIREMENTS: 

• 32K Level II TRS-dO; one or more disk drives; line printer 

If you've seen or used the Electric Pencil, you'll be delighted with 
SCRIPSIT's versatility and extra features. Rapid typists will 
appreciate the fact that SCRIPTSIT does NOT lose letters at the end 
of each line. Titles can bB automatically centered. The Screen width 
can be changed to match your printer. Tabs can be set, etc... 

If you are a BASIC programmer, you'll want to utilize SCRIPSIT's 
ability to work directly with BASIC programs. 

SCRIPSIT comes on disk with thorough documentation and 
sample text files. Includes three audio cassette tapes which coverall 
aspects of this exciting Word Processing Package. 

The Complete SCRIPSIT Package (with Binder, Manual, 2 Disks, 3 
Cassettes, Instruction Summary Card and special press-on key 
labels) is only $95.00 -*- $2,110 thipplng. 
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Crows Eat Prunes 
Once upon a time a farmer left 
several trays of prunes in his back- 
yard to dry. Five crows, flying 
overhead, decided to drop in for 
dinner. They landed, ate their full, 
and flew to the handle of a nearby 
water pump to enjoy a cigar. After 
a pleasant hour, the first crow took 
off. flew fifty yards due South, and 
dropped out of the air, dead. The 
second crow then flew fifty yards 
due north, and also dropped out of 
the air dead. The third crow flew 
fifty yards due east, and dropped 
dead. The fourth crow, worried by 
now. took the only remaining 
direction, west, and suffered the 
same fate. The fifth crow, by now 
in the seat of terror, decided to fly 
straight up. He made It fifty yards 
and dropped dead. Moral: Don't fly 
off the handle when you're full of 
prunes. 

Editor Eats Crow 
I got carried away in my March 
editorial and unfairly criticized 
one of our regular customers, the 
collector. As a subscriber to 
SoftSide on cassette from the be- 
ginning, he has over one hundred 
of our programs, legitimately, and 
keeps backup copies. His 2000 
programs included many backup 
copies, so my hint of piracy was 
unfair. Incidentally, he reported 
that he got the sort time down to 11 
seconds from 3 days by using the 
PAGET GSF string sort. 

Whatever Happened to 

VTOSf 

While I am confessing my sins, it 

is appropriate to talk about VTOS 

3.1. which we advertised a few 



6 



months back. Lance Micklus and 
Randy Cook are good friends, so 
when Randy told Lance he had 
VTOS 3.1 almost ready. Lance 
suggested that I call and talk to 
Randy about T.S.E. carrying the 
product. I did, and Randy said that 
VTOS was almost ready, that it 
was sure to be ready by the time 
the advertisements appeared, and 
that It would not be a problem 
coming to terms on a contract. 
Several months have gone by, and 
we have yet to see a copy of VTOS 
3.1 or a contract. We have stopped 
our advertising, refunded alt 
orders, and are waiting until VTOS 
and the manual are readily 
available before we reconsider 
carrying the product. 

Editor Flys Off Handle 

A very disturbing 
statistic came out of HardSide 
recently. As one of the largest 
single distributors of TRS-80 
equipment, we have been keeping 
statistical records of defects. Fully 
8% of all TRS-80 we receive will 
not even work at all fresh out of the 
carton. We find those and have 
them fixed before shipment. Still, 
another 4% are defective and must 
be returned by customers. It looks 
like Tandy gave up quality control 
for Lent. The problem is so bad 
that we have decided to give up 
selling Radio Shack pure units that 
we had been drop shipping direct 
to customers. That means 
HardSide cannot pass on the 
Radio Shack warranty, but we will 
double it and offer a six month 
limited warranty of our own 
instead. 
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SoftSide to Have New Editor 
James Garon has been doing a 
great job since he arrived here as 
our software editor, and wiif be 
promoted to editor of the TRS-80 
publications effective with the 
June issues of SoftSide and 
PROG-80. James is no stranger to 
SoftSide reading. His Isolate had 
proven to be one of our most 
popular programs ever, and he has 
been a frequent contributor. 

Nearly all of the men In our 
company are wearing new 
watches. Joe Breton, our 
marketing manager, wanted to put 
a gimmick in our new catalog, so 
he got a shipment of Casio 
calculator watches, which 
HardSide is selling for $40.95. 
These are the same watches that 
sell In the stores for $75, and which 
Markline is discounting at $49.95. 
The watches were so nifty that the 
entire first shipment was sold to 
employees. There is a rumor that 
the next catalog gimmick will be a 
12 ounce computer for $200. Tm 
saving my nickels! 

Mom's Maif Order Micros 
We have received a number of 
inquiries about the legitimacy of 
Mom's Mfiljorder Micros in 
Marlboro. NH. We have not been 
able to verify their legitimacy. The 
firm is not registered with the State 
of New Hampshire, according to 
the office of the Secretary of State. 



Upon calling their number, we 
have gotten only an answering 
machine. We ask our readers for 
their experience with the firm. 

In the Microcomputing Industry 
Newsletter Wayne Green, who 
seems to have some association 
with the firm, claimed that the only 
way to offer TRS-80's at Mom's 
prices was to upgrade used Level 
I's. (Not true— HardSide offers 
new computers at about the same 
price). Mr. Green recommended 
that as a bargain way to get a 
computer, so do even better with 
HardSide! 

Ramware Division Gets 
Fresh Life 

Our wholesale marketing 
division is undergoing a major 
revitalizatron thanks to Rich 
Richmond, our new sales 
manager. We are extending the 
documentation and repackaging 
our best products for distribution 
through computer stores. In 
addition, we are carrying the best 
products of Hayden, Small 
Systems Software, Apparat, 
Person Software, Muse, Syner- 
gistic Software, Automated 
Simulations, Atari and others so 
computer stores can get all their 
TRS-80, Apple, Pet, and Atari 
software from one supplier. Our 
dealers have been listed in the S- 
Elghty and Creative Computing to 
help you find your local store. 

GWB 



The TRS Computer Club of Central Fiorida meets every second 
Sunday at 2 PM at the Fiorida Federal Savings and Loan Community 
Room, intersection of ^ate Routes 434 and 436, Altamonte Springs. 
For further information, call the Secretary at (305) 67a«'4295, or write 
to SUom Horwttz, 152 MiH Run Drive, Lake Mary, FL 32746. 



TO ORDER 
CALL TOLL- 
FREE 
800-258-1790 

(in NH call 
673-5144) 




Prices subject to change 
without notice. 

Prices do not include shipping 

COD orders require 
25% cash deposit. 

•••EFFECTIVE JUNE 1«t 19W' 



6 South Street, 
Milford, NH 03055 
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LIST 


OUR 


TRS-80 COMPUTERS: 


PRICE 


PRICE 


Level II. 4K 


$619.00 


$559.00 


Level II, 16K. no keypad 




669.00 


Level II. 16K. w/keypad 


849.00 


749.00 


EXPANSION INTERFACES: 






COMM<80 Interface 




179.95 


Expansion Interface, no RAM 


299.00 


269.00 


Expansion Interface. 16K RAM (NEC) 


448.00 


369.00 


Expansion Interface. 32K RAM. (NEC) 


597.00 


459.00 


DISK DRIVES: 






Percom. TFD-100. 40-track 


399.00 


389.00 


Percom. Dual TFD-100's 


795.00 


775.00 


Percom, TFD-200, 77-1rack 


675.00 


650.00 


Percom. Dual TFp-200's 


1350.00 


1300.00 


CompuThink. Dual Drive, Dual Sided 




1295.00 


DISK DRIVE ACCESSORIES: 






2-Drlve cable for TRS-80 


29.95 


29.00 


4-Drlve cable for TRS-80 


39.95 


39.00 


Percom Data Separator 




29.95 


Extender Card 


15.95 


15.00 


PRINTERS: 






Centronics 730 


795.00 


719.00 


Centronics 737 


995.00 


895.00 


Centronics 753-2 


3196.00 


2695.00 


Centronics 779-2 


1559.00 


995.00 


RS Quick Printer II 


219.00 


209.00 


RS Line Printer III 


1960.00 


1813.00 


NEC 5530 SpinWriter 


2995.00 


2595.00 


LRC 7000+ 


389.00 


369.00 


■■■■■■^^LRC 7000+ (64 col) 


405.00 


389.00 


l€^^HiH# PRINTER CABLES: 




QPII to Expansion Interface Cable 


19.95 


19.00 


LRC to TRS-80 cable 




20.00 


LRC to APPLE cable 




20.00 


LRC to EXIDY cable 




20.00 


LRC to PET. IEEE cable 


., 


59.00 


LRC to RS232C male, cable 




65.00 


LRC to RS232C female, cable 




65.00 


730 or 737 to TRS-80 cable 


, 


29.00 


779 or 753 to TRS-80 cable 




35.00 


PERIPHERIALS: 






Novation CAT Modem 


189.95 


179.00 


UDS 103-LP 




195.00 


RS-232-C Interface Board 


99.00 


89.00 


TRS-232 Printer Interface 




39.95 


DATA Dubber 




49.95 


16K Memory Kit, Keyboard 




99.00 


16K Memory Upgrade Kit. E.I. 




95.00 


Percom Electric Crayon, w/cable 




279.00 


Busy Box. TRS-80 




109.95 


Busy Box, APPLE 




114.95 


BSR X-10. Starter Kit 




124.95 


ATARI COMPUTERS: 






ATARI 800 Computer System 


1080.00 


875.00 


ATARI 400 Computer 


630.00 


515.00 


ATARI 410 Program Recorder 


89.95 


65.00 


ATARI 810 Disk Drive 


699.95 


565.00 


ATARI 820 Printer 


599.95 


470.00 


Joystick Controllers 


19.95 


18.95 


Paddle Controllers 


19.95 


18.95 
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YOUR 
TRS-80* 
MICRO- 
COMPUTER! 

Why chug along on an electric 

abacus when you can have the 

power of a berserk Ayatollahl 

These products double the 

horsepower of your computer! 




NewD0S+,with Dfr Check, 
Super Zap, Disk Editor As- 
sembler and A DOS that 
really works! $99.95 

Electric Pencil, it starts as 

the best text editor for your 

TRS-80*, but that is only 

the beginning! |lSd:0D 

Now Half Price $75.! 

TRS-dO Disk and Other 

Mysteries by Harvard 

Pennington. All you need to 

know to unleash the power 

of Super Zap and Electric 

Pencil. $19.95 



ONLY $195. 



FOR ALL 
THREE 

TheSoNt^areEMchange 

6 ScxJthStrvct, Box 68, MilfonJ, NH 03055 603 -673-5144 





byte off all you can chew! 

SSEMBL^ 
LANGUAGE 
PROGRAMMING 
AIDS 

Z-80 and 8080 Assen)bly 
Lanfiuane Programming 

by Kathe Sprmkl«ii 

Fmatryf A good tutortaf book on a$$emb(y language programming 
by^a master of the arti KatheSpracklen, co-author of Sargon, tettsyou 
how with stmpte straightforward instruction. $7»95^ p shipping 

Microsoft 
Editor/Asseml>ler Plus 

Plus what? Well, you get the features of the T-Bug and the original 
editor/assembler plus macros and conditional assembly, plus extra 
commands like substitute, move, copy, and extend, plus Z-Bug, a 
powerful debugging monitor with 8 level breakpoint capability. A 
bargain at $29.95 

Super Simon 

By George Blank 

Complete Z-80 Disassembler with ability to generate symbol tables, 
dump In Hex, ASCII, or even decimal with poke addresses. Writes 
machine language tapes. Written In BASIC so It loads easy and is easy 
to modify. $9.95 

TheSattHi»eE]uJtange 

6SouthStKet.Box68.Milford.NH03055 603-673-5144 
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LIVEKEYS 

-by A. Douglas Werbeck. 



Here is a humble little program a friend asked me to write which allows a 
TRS-80 owner with lineprinter to have a letter writing machine. 

12 



In a nutshell it is a micro word processor. Really micro! The friend for 
whom it was written presently owns a full blown word processing program 
and doesn't use it because his complaint Is "you have to study the 
instructions for hours just to learn how to use it to make life simpler!!" 

I really don't think It will revolutionize the science of word processing but 
it might be of some help to some folk who would like to use their big 
investment printer for the occasional short letter. 

INSTRUCTIONS: 

1. Type in the above program, then RUN. 

2. Type In a line to be printed. Do not use the symbol #, it is reserved. 

3. Limit the number of characters you type In the line to correspond to the 
number of characters your lineprinter is set to place on a single line, e.g., 64, 
90, 132, etc. 

For example, if your lineprinter is set to print 90 characters per line you 
would type in (approximating is a good enough) one and a half video lines 
(64 + 32 characters = 96 characters). If your printer was set to 132 characters 
per line ;you could type in 2 lines of video (2x64 characters). 

4. After typing in the approximate number of characters In your line hit 
ENTER twice. The keyboard will be dumped onto paper. 

5. You can correct a typing error on the video ONLY if you do not type past 
it. For example, you can correct the extra n in ELLENN only If you stop 
typing after the extra "N". 

Procedure for correction: type the symbol #, then backspace arrow. 
Proceed as usual. 

6. For double spacinjg between lines on lineprinter hit space bar then 
ENTER twice. 

7. END. 



10 REM 


" LIVEKEVS " 




20 : 








30 REM * * C0PVRI6HT BV fl. 


DOUGLAS WtkBECK 1980 * * 


40 ; 








50 REM * * 


POB 787, RUSKIN, FLORIDA 


33570 * * 


60 : 








70 CLS 








80 fl$ = INKEV* 


: IF fl$ = "" 


THEN 80 




90 IF fl* = "#" 


THEN B* = "" 


: fl* = "" : 


GOTO 80 


100 LPRINT B$i 


: PRINT fl*i 






110 B* = INKEVI 


f : IF B* = »" THEN 110 




120 IF B» = "#' 


THEN ft* = "" : B* = "" 


: GOTO 80 


130 LPRINT fl*i 


: PRINT B*i 


: GOTO 80 
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Outstanding Utilities 
RACET Computes 



INFINITE BASIC 

Adds more than 70 commands to BASIC that can be merged in any combination 
to make efficient use of memory. Includes matrix read, inverse, transpose, 
identity, simultaneous equations, scalar, vector, and multidimensional array 
arithmetic, dynamicaHy reshape, expand, and delete arrays, change arrays in mid 
program, read and write arrays on tape, copy elements, zero and move arrays. 
String functions include teft artd right justify, truncate,, rotate, text justification, 
string centering, delete and insdrt substring, pack string, convert upper and 
lower case, translate characters, reverse strings, verify function,, test number of 
occurences, masked string searches, encrypt and decrypt string, compress and 
uncompress string charactei^. High speed sort routines for strings and arrays, 
including multikey sorts, ari§ also part of this package. 

For business users, an add on^ package Includes multiple precision packed 
decimal arithmetic, with up to 127 digits of accuracy,, binary search of sorted 
arrays, insert elements in sorted arrays, automatic page headings, footings, and 
pagination including forced end of page, and automatic hash for record 
retrievaL inlbfte BASIC $49.95. infinUe bushiest {add on) $29.95 

COMPROC COMMAhHD raOCBSOR 

Chain muttipie steps m disk BASfC upon power up, retocatabie key 
debourice, allows pauses for data entry at specified steps durmg 
execution (on cassette for disk systems only) for Sf^Si. 

DOSORT 

BASIC control program with high speed machine language sort for disk 
users. Merge and sort files on more than one disk if you have 2i>r more 
drh^es. Self prompting with manual. Specify 32K or 48K version &^. 

GSF GENERALIZED SUBROUTINE FACILITY 

18 machine language subroutines with easy access for BASIC users. Sort 
1000 element arrays in 9 seconds, read and write arrays to tape, 
compress and uncompress data, move arrays in memory, duplicate 
memory, fast horizontal and vertical lines, 5 routines for screen control. 
Specify 16K, 32K, or 48K version, for $24.95. 

REMODEL PROLOAD 

BASIC program utility allows you to renumber portions of a program, 
move portions from one location to another, delete, merge, save and 
verify combined and changed programs, and create your own library of 
programs, subroutines, and even data statements. Works on tape or disk 
systems. Two programs on one tape. Specify 16K, 32k, or 48K 
(unspecified orders receive 16K) tape $34.95 

14 



TIMSER 

Time series analysis program fits data to 9 different 1st, 2nd, and 3rd 
order curves. Goodness of fit data, tables, projected data, confidence 
limits, curve fit, variance, correction factor, seasonal and cyclical 
variations, inflation corrections are all implemented. Detailed user 
manual with illustrated examples. Order tape at $14.95. 

Y-YBAR 

Optical system design program allows manipulation of ray heights at 
lens surfaces using Y-Y Bar diagram method. With documentation on 
tape for $14.95. 

DISK SORT/MERGE 
DSM IS POWERFUL!!!!!! 

• Sorte large multiple diskette files on a minimum two drive Mod-I disk 

system. 

• All records are physically rearranged —- no key files are required. 

• Sorts random files created by BASIC, including files containing sub- 

records spanning sectors. 

• Sorts on one or more fields in ascending or descending order. Fields 

may be character, binary integer, or floating point. 

• The sorted output file may optionally have fields deleted, rearranged, 

or padded. 

• Sort commands can be saved for reuse in production applications. 

• Single sort, merge, or mixed sort/merge operations may be performed 

in a single DSM application. 

• Sorted output may be written to a new file, or replace the original 

Input file. 
DSM IS FAST!!!! 
DSM is written entirely in machine language for fast sorting. $75.00 



^^M The Soitw¥are Exchange 

IM^ffSEi 6SouthStret't.Box68,Milford,NH03055 603-673-5144 




LANGUAGE SALEr 



FRENCH 
"BONJOUR" 



GERMAN 
"GUT MORGAN" 



SPANISH 

"BUENAS DiAS" 



iANQUAGE TEACHER SERIES FROM ACORN SOFTWARE 

These programs provide a whole disk full of vocabulary and 

conjugation drills to be used in conjunction with a course in 

the language. We have decided not to offer educational 

software, so while supply lasts, you can have them for $15.95 

mch. Comes on diskette, requires 32K memory. 

TheSoHw&are exchange 

8 SOUTH ST., MILfORO, NH 03055 673-6144 
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ADVENTURES 

by Scott Adams 

Adventures on Tape: /.eve/ ii, i6k 

# Adventure Sampler 

Short version of Adventureland, a great way to try out adventuring 
(but you'll get addicted!) $5.95 

# Adventureland 

An enchanted world with 13 lost treasures guarded by magical 
bemgs $14.95 

# Pirate's Cove 

Clues in bloo^-^oaked books, a pirate and his parrot, .alligators, 
treasure. . . .y: $14.95 

# Mission Impossible 

A charice to prevent the nuclear reactor from being destroyed by a 
saboteur's time bomb $14.95 

# The Count 

Watch out! you're in Dracula's castle and you must destroy him before 
he bites you! ■ $14.95 

9 Voodoo Castle 

Remove a curse from Count Christo $14.95 

# Strange Odyssey 

Adventure in outer space in the ruins of an ancient alien 
civilization $14.95 

% Mystery Fun House 

It will talce all your ingenuity just to get past the ticket counter, and 
that's only the beginning!. $14.95 

# Pyramid of Doom 

In the shifting sands of the Sahara lies an ancient Pyramid, filled with 
Egyptian treaasures .< $14.95 

Adventures on Disk, in Sets: 

mSet 1: Mission Impossible, Pirate's Cove, Adventureland $39.95 

^Set 2: Voodoo Castle, The Count, Strange Odyssey $39.95 

^ TRS-80 16K Level 11 ^ 

^ Apple 11 24K ^ 

w (programs are In Machine Language) ^ 

^ Disk (TRS-80 only) ^^^ 



The Saih&are Exchange 

6SouthStreet,Box68,MilfoitI,NH03055 603-673-5144 
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he Bests 
Has Gotten Better! 

Sargon, the program that came in 
first in the Creative Computing 
Microcomputer Chess Tourna- 
ment, has become Sargon II *$29.95 

•A vastly improved game 

•Faster response time 

•New ievel for beginners 

•Easier to pre-set board 

•Hint mode • What does the computer suggest 

Sargon II is the program that took 
on the maxi-computers In the West 
Coast tournament, and finished in 
the money! More thinking power 
than you ever expected . 



Now in stocl< for immediate delivery! 





TR8-80 (Tap* only - 16K) 
SARQON $19.95 

SARGON II $29.95 



TSB 



AppI* TapM 

SARGON $19.95 

SARGON II $29.95 

SARGON II on disk $34.95 



SSoUhStmt.ScxM.Mabrd/^QJOK 6(U 673-nM 

gCall (603) 673-51 44 for immediate 8hlpment4 
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THE $44,000,000 
STAR TREK! GAME 

by Lance MIcklus 



Just a few days before 
Christmas, I was looking around at 
a book store and found a source 
t>ook for Star Trek fans. It listed 
everything from T-shirts to Trek 
fan clubs. Out of curiosity. I 
checked the State of Vermont and 
discovered that we have a fan club 
right here in Burlington headed up 
by Lynn Holland. 

Later that night. I called Lynn to 
say hello, and introduced myself. 
Believe it or not. Lynn and I spent 
more time talking about 
computers than Star Trek. Lynn 
had just finished taking a 
FORTRAN course and was 
Intrigued by the things I was doing 
with my TRS-80. 

One of the Interesting things 
Lynn pointed out to me was how 
many careers Star Trek had 
changed. And 1. in fad. was Just 
another example of this. Had it not 

IS 



been for the sales of Star Trek III. I 
would probably still be working at 
Vermont Educational Television 
as an engineer. 

When SoftSlde asked me to 
write an article about the Star Trek 
movie, they suggested that I talk 
with Lee Cole at Paramount 
Pictures. Lee and I. as it turns out. 
have a lot In common. My back- 
ground was in television produc- 
tion and now I'm working with 
computers. Lee. on the other 
hand, worked with computers and 
now has switched to a motion 
picture production. 

Lee originally had worked for 
Rockwell. When Paramount had 
begun work on ST-TMP. she was 
asked to come and work at the 
studio for Just a couple of weeks as 
a consultant The couple of weeks 
turned into 2H years, and in the 
process, Paramount hired her full- 



time. Lee is an excellent artist, an 
asset for her work on the picture. 
Currently, she is assigned to the 
TV series The Goodtime Girls and 
Angie. 

Lee's work with ST-TMP was 
primarily in the design of the 
various operating panels, 
computer terminal stations, and 
electronic displays. This includes 
the control panel on the Klingon 
battle cruiser, the space station 
and, of course, the bridge of the 
Enterprise itself. 

Since there was no script at the 
time Lee started to do her work, 
she had to second guess what 
director Robert Wise would want. 
Certainly, he would need displays 
on the various ship's monitors, so 
Lee began to talk to people to get 
some idea of what those displays 
should be and began acquiring the 
film. 

One of the visuals was actually 
the shock wave of a laser pellet 
experiment. Another, provided by 
The Jet Propulsion Laboratory, 
was a high resolution color 
computer animation of the Jupiter 
fly-by mission. And, in a few cases, 
filmed animation, i.e., cartoons, 
were used. 

Once the script had been 
developed, Lee had to find sources 
for some very ispecific visuals. 
One was a brain wave scan of Mr. 
Spock which was seen toward the 
end of the picture. It actually was a 
C.A.T. scan of an autopsy brain, 
photographed such that It looked 
like it was being produced in real- 
time. Ironically, a few months after 
Lee shot the film, a devrce that 
really does this type of thing on 
living humans was announced. 

Another interesting visual was 
the thermal graph of Ilia. The 
visual is based on what many 



people believe these types of 
graphs will look like in the future. 

Another set of visuals Con- 
sisted of computer displays that 
would be almost unreadable, yet 
their presence makes the ap- 
pearance of the bridge look ge- 
nuine. The film crew contacted 
Jesco von Puttkamer at the Ad- 
vanced Programs Department of 
N.A.S.A. for some additional 
help. Unable to supply all of the 
graphics Lee requested, Mr. von 
Puttkamer offered to augment 
the film available from N.A.S.A. 
with material he could make up 
on a small microcomputer he had 
at home. 

And this is the most incredible 
part of the story — it was a Radio 
Shack TRS-80, with only 4K of 
memory, and Level I BASIC. Yes, 
Radio Shack's bottom of the line, 
$500 computer, actually helped to 
make the Enterprise flyl 

Working a few hours each night 
for a week, von Puttkamer made a 
total of 40 visuals which produced 
charts, graphs, or just displayed 
information. One of the programs 
was called a Deck Monitor. It 
monitored each Section of each 
deck and would, for example, tell 
you that a light bulb was burned 
out. Another program kept track of 
the temperature at several 
hundred different locations on the 
ship. A third program kept track of 
consumables such as food, air, 
and medical supplies. Or. Mc Coy 
had a special program that 
displayed the number of 
contaminates in the air. 

After writing all of the programs, 
von Puttkamer had each display 
filmed using a special long 
exposure 16mm camera loaded 
with color film* Some of the 
displays were filmed in von 



Puttkamer's living room off of his 
TRS-80 monitor. Others, were 
made at a film lab. After the film 
was developed, the iab added 
colors to the monochrome images 
so that they would appear as color 
displays. 

On the Enterprise set, several 
rear screen projectors were used 
to get the displays onto the various 
viewing screens. Some of the 
displays were looped in the lab so 
that they repeated over and over 
again. 

Lee said that Jesco's visuals 
were among the sharpest and 
clearest they had received. 
Unfortunately, not all of the TRS- 
80 graphics are seen in the final 
release of the picture. There was 
just more material than could be 
used. And some of what was used, 
wound up on the cutting room 
floor. 

The program listing which 
follows are a few of the Star TreK 
computer displays that Jesco 
made for the movie. To make It 
easier for all of you to keyboard 
them in, I've converted them all to 
Level II BASIC, and then MERQE'd 
the programs together into a 
single unit. You can either 
keyboard the whole thing in, or 
just keyboard each part 
I n d I V i dual I y . Th e additional 
REMARKS I've added should help 
you find the break points where 
one program jumps to go to the 
next. 

The first display makes 
horizontal flow lines which 
represent force field readings 
taken from the outside of the hull 
of the ship. The display updates 
Itself eyery few seconds, but 
leaves the last couple of flow lines 
on the screen above it for 
comparison. 
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The second display in the 
program is a data frame of one of 
the ships auxiliary reactors. What 
makes this display interesting is 
the fact that a fault developes in 
the reactor which results in an 
alert condition. The fault 
apparently corrects itself and the 
reading then indicates that all is 
normal. 

The third display in the listing is 
a flowchart of the life support 
system. Like the reactor display, 
the computer detects a fault. It 
then shows how it is handling the 
malfunction by trying to re-route 
some of the systems to 
compensate. 

The fourth display is a bar chart. 
This shows how much power is 
being used in various parts of the 
ship. This display, and the life 
support flowchart are my 
favorites. 

The last display element in the 
listing looks ratherconventionai. It 
shows some of the navigational 
stars, their present intensity, and 
their location. It appears that there 
was more to this part of the 
program since the listing appears 
to be incomplete. If that's true, 
then I only receive the first part. 
However, the other parts would 
appear to just do more of the same. 
Since we're only Interested In 
appearances. Part I will do just 
fine. 

So, there you have It. Five real 
and original Star Trek computer 
displays. I think you'll have a lot of 
fun with these on your computer. 
And after you get them all done, up 
and running; you can head back to 
your neighborhood theater and 
watch the movie again to see how 
many of them you can find. 



am SEH KSERTED BV JESCO VON PUmCRKR FOR ■STIIR IRBC (1978)1 

IMS REN * COPVRIGHT 1978 • 

1828 REH « NOOIF1CRT10N5 BV UMCE NlCiaJfi FOR SGFTSIDE HRGHZINE 

18» ' 

1M8 ' FORCE FIELD PffiMCTERS FROM OUTSIDE IK SHIP'S HULL 

18S8 ' 

1868 ' 

1878 CLERRISB : US 
1808 DEFINTA-Z 

1898 F0RV>«TO47:SET(ftV):Sn(127.V)IEXTV 
1188 (^7:9<:(^3 

1118 Mi»(28):BsRM>(2B) IFfDBQOTOim 
1128 80101148 
1138 IM:(M:»4I 
1148 C>R»<41):IFC<B60T01148 
11S8 IH»D<41):IFD<BeO(T01158 
11C8 IFD000TQ1188 
1178 80101198 
1188 iK:OD:MI 
1198 E>R»(S2):IFE<nOT01198 
1288 F4»(fi2):IF<DG0T0i2i8 
1210 IFE)Ffi0T0i2» 
1228 Q0TQ12M 
129 IK:E«F:F4I 
1248 (>«»(7S):IFG<Fan0i2(8 
1298 IMID(7S):IFH<F001O1298 
120 IF 6)HB01OI288 
1278 80101298 
1288 IM:Mt.lMI 
1298 I4»(91):IFI<HBDTQ129i 
1388 MW(fl):IFKHBDroU8i 
13il IFJMflDIQlIlR 
1328 M:I«J:MI 
1331 M8K185):IRKMnkl33i 
IMi L4»(tf5):IFLOBDroi948 
IF fOLBPraUTI 



1371 IM:M.:L4 

13n IMM2n:l 

1398 »M(12n:IFNa«IQI3» 
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14« 


IF N>NOOfT01428 


141S 


GOT01438 


1428 




1438 


V>e:M:G0TO1468 


1448 


MNT(2«M>(8)) 


14S8 


RETUm 


14«B 


V>VH:QQSIB1448 


1478 


W) 


1488 


FQRKsTTQR:SET(X.V):IEXT)( 


1498 


IFZslQOTQiSlB 


1388 




1518 


FaRV=VnW«INT(RND(6)) 


1328 


SET(R.V):IEXTV 


isn 


FaQMmB:SET(X>V):IEXTX 


1548 


IFZslQ0T(kl568 


1S38 


FOnM^raO: 00701578 


1568 


FQRVsVTOOSTEP-l 


1578 


SET(B,V):iGnV 


1388 




1598 


Tae:fN::M:G0roi468 


1C88 


T-D:I»<:»^:G0T01468 


lfil8 


T^:IM:B4t:60T01468 


1628 


TiM:M:M:O0TO1468 


1638 


T«J:fM(:M.:Q0T01468 


1648 


m.:MI:»4l:G0TO1468 


1638 


FaRiWrai27:SET(X.0):IGaX 


1668 


S«S*1 


1678 


GN 5 00701688.1688. 1698 


1688 


MH15:00Tmil8 


1698 


Qi(Kl:PRINTil816.Qi :SET(127.45):SET(127.46):SET(127.47):F0 


RJ>1T0388:ICXTJ | 


1788 


' <« JIMP TO IGCT DISPIAV >» 


1718 


IF (M2 TKN 2838 


1728 


niNT81816.- ■; 


1738 PRINT:PRINT:PRINT:PR»rT:PRINT | 


1746 


F0RV>3aTO47:SET(8.V):SET(127,V):IEXTV:S>2:QOTQ1118 


2888 


/ 


2818 


' HUKILinV RERCTGR 4 


2828 


/ 
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2038 aEflR m : DEFINT A-Z 

2840 GOSUB 2188;F()RNslT028e8:NEXTH 
2858 (XSiBZm 
2060 G0SUB2i8e 

2078 FORN»lTO1008:Ne<TH 

2888 '«< JUMP TO NEXT DISPLfiV >» 
2898 GOTO 3838 

2180 as 

2110 QOTO2350 

2120 F0RV=27TD47:SET(8?, V) :I€XTV:FORV=46T028STEP-3:SET(86, V> :NE 
XTV 

2130 F0RX=88T0126:SET(X,27):SET<X,47):NEXTX 
2148 FORX=89T0124STEP5:SET(X,46):NEXTX 
2158 V=3€:FORX=88T097STEP3:SET(X,V):^=V-1:MEXTX 
2168 V=32:FORX=98TO102:SET<X.Y>:V=V-1:NEXTX 
2170 FORX=88T093:SET(X,34):NEXTX:B=98:FORV=32T028STEP-2:FORX^ 
TflB:SET(X,V> 

2180 NEXTX:IFB»182G0T02288 
2198 B=Bt2:NEXTV 

2200 SET<103.29):VM6:FORXs88TO186:SET(X,V):V=V-l:NEXTX 
2218 FORV=28TO32:SET<107,V):NEXTV:FORX=108TO109:SET<X,32):NEXTX 
2220 FORV=32TO46:SET(110, V) •.»tXTV:FORV=30TO32:FORX=lllTO112:SET 
<X,V):NEXTX:NEXTV 

2230 F0RV=28TO46:SET<113, V) :NEXTV:F0RV=37TO46:SET(114, V> :NEXTV 
2240 F0RV=38TO46:SET<115, V) :NEXTV:FORV=39T043:FORX=116T0117:SET 
(X,V):ICXTX:ICXTV 

2250 F0RV=39TO42:SET(li8. V):HEXTV:FORV=40TO42:SET<119,V):KEXTV 
2260 FORV=41TO42:SET<120. V) :NEXTV; V=42:F0RX=i21T0125:SET<X, Y) :V 
=V+1:HEXTX 

2270 fl=90:FORVM5TO36STEP-l:FORX=«ffO118:SET(X,V):lfXTX:IFfl=1086 
OTO2290 

2288 fNH2:(EXTV 
2298 PRIHT8699.»B75X"i 
2388 PRIHT8947,'V5L"; 
2318 PRIMTi556, "PURGE SVSTEHSTflTUS'i 

2328 PRIMT861?, '?'; :PRIHT868L "6"; :PRINT8745, "5"; :PRIIIT8889, "4" 
i:PRINT8873,"3«i 
2338 PRIHT8937,"2»i:PRIMTW.88L«l"; 
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Zm RETURN 




2356 PWNTW, "DflTfl FRfHC T92 - 


- flOXlUflRV REACTOR 4 


2m PRINT9129> 'SENSOR B2 R4 


L9 Z8«i 


2278 PR1NTK57,"P IRF - 2 


15 -"; 


2388 PRINT8385,"0 XRflV 5 - 


11 1"; 


2398 PRIMT§511"R VIS - - 


- 2"; 


2488 PRINT8641,"T QflH 25 6 


- 9"i 




2418 FORX=1T047;SET(X,33):NEXTX 

2428 F0RV=3TO4?:SET(8,V):NE5aV:F0RV=llTO33:SET<5.V):NEXTV:FORV= 
5T033:SET(16,V) 

2438 SET(24,V):SET(32,V);SET<4e,V):SET<48,V):NEXTV 

2440 F0RX=lTM7:SET(X,18):NEXTX:F0RX=6TO47:F0RMCTO28STEre:SET 
<X,Y):NEXTV:NEm 

2458 FORX=1T079:SET(X,4):NEXTX 

24€8 PR1NT8185, "»» OftTfl NOMINfiL 88'; 

2478 F0RX=91T01^:SET(X,2):SET(X,6>:NEXTX 

2488 F0RV=3T05;SET<9LV):SET(128,V):NEXTV 

2498 PRINT8153, 'STflRDflTE 7412. 582"; 

2588 PRINT8769. "COMPUTER TIE-IN COOES. . . "; 

2516 PRM8833, ""~ NODE 1";:FORI=1T0788:NEXTI:FORX=24T051:SET( 
X,48):NEm 

2528 FORV=40TO10STEP-1 ;SET<52, V) :NE}(TV:F0RX=53TO61:SET(X, 18) :NE 
XTX' 

2536 PRINT8223, "> BRU-108-881iee81il"; 

2548 PRINTi897, — MODE 2"; :FORI=1T0788:ICXTI :F0RXs24T054;SET( 
X.43):NEXTX 

2558 FORVM3T013STEP-1:SET(55,V):NEXTV:FORX=55T061:SET(X,13):« 
XTX 

2568 PRINT8287, "> K0R-818-1188eil811"; 

2578 PRIHT8961, "~" MODE 3"; :F0RI=1T0788:NEXTI:F0RX=24T057:SET( 
X,46):NEXTX 

2588 F0RV=46T016STEP-1:SET(58. Y) :NEXTV:FORX=58TOS1:SET(X, 16) :NE 
XTX 

2598 PRINT8351, "> LIK-e81-888eilll81"; 

2686 PRINT8414, "========="; 

2616 PRINT§244,"TE«P287+E6"; 

2628 PRIKT6388,'FL0H 8155.3"; 

2638 PRINT8372,"PRES 768.3"; 

2646 PRINT8436, "POHR 2521 8"; 

2658 F0RV=8T02e:SET<183,V):NEXTV 
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2666 PRIKT9478/'PREVn.VE SERVO COMPflRRTOR FRILING"; 

2678 PRINTe642> 'SEQUENCER: '; 

2680 PRINTM87,"STflll>-BV; 

2698 PRIMT8678, •VENTS; OFF"; 

2788 PRIHT8734,"BflFFLE: ON"; 

2718 PR1NT8798."CRV0B0IL-"; 

2728 PR1NTW62>" OFF: HIN"; 

2738 PRINT8926, "FUEL LEVEL"; 

2748 PRlNTW98,"RflM(iE: OFF"; 

2758 Q0SUB2128 

2768 F0RV=24TO26:F0RX=81TO85:SET(X,V):NEXTX:NEXTV 

2778 F0RV=«TO47:SET<127,V):HEXTV 

2788 RETURN 

2798 F0RH=iT0ie:PRINT8111, " 88"; 

2888 F0RV=3TO5:SEr<128.V):SET(i27,V).:NEXTV 

2818 F0RMT0258:NEKTI 

2828 PRItfr811L"DflTR HERT! 88"; 

TSaH F0RV=3TO5:SET(12aY):SET<127,Y):NEXTV 

2848 FORMT0258rNEXTI:NEXTH 

2858 FORJslTQlS 

2866 f>RINTe478," "; 

2878 SET(127,21):SET<127.22):SET(i27.22> 

2886 F0RMT02S8:NEXTI 

2898 PftlKT8478.'nCVRLVE SERVO COrramTORFRILING*; 

2988 SET(i27,21):SET(127.22):SET(127.23) 

2916 F()RMT0256:IG(T! 

2920 KXTJ 

2936 F0RMTO7Se:ICXTI 

2946RETUIN 



3618 ' LIFE GRfTHIC 



3838 CLEfK : DEFIKT fi-Z 

3846 as 

3658 FOI»«=«TOy:SET(X,4):NEm:FaW=2T06:SET(6.V>:l€}aV 

3668 PRINTK8,*Cfl8IN*; 

3878 F0RX=7T019:SETOU2) :SET<X, 6) :rEm:F0RV=3T05:SET<19, V> :NEX 

TV 

3888 FORX=28T057:SET(X,4):ieXTX 

3898 PRINT8142,"EHERG. REPRESS"; 
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3in raRV=Sn»lie:SET<a6,V):SET<57,V):«XlV:FaM»2?TaK:SET<X,l« 
:IBaX 

J118 f(lRV=2T(»5IEP-l:SET<2,V):liXTV:F0R»»iro76:SET<X,8>:liXTX:F 
flRMT04:SET<76,Y) 

3120 NEXTV:PRIMTtl64,"PtW>'i :FaW=7«fT081:SET<X,5):NEm:FORV=6TO 
9:SET(78»V):SET(8LV> , 

3130 NEXTV:FORX=71TO80:SET<X, 9) :»€XTX:FO(«=20TO127:SET(X, 2) :NEX 
TX:FOI«=82TO101 

3140 SETa8):NEm:FORV=9TO10:SET(101,V):ICXTV:FORX=82TO121:SE 
T(X*11)*MEXTX 

3150 PRIMT0298. "HRTER aECTROLVSIS"; :F0RV=12TO15:SET<82. V) :SET( 
121»V):ieXTV 

3160 FORX=83TO120:SET(X, 15) :«5(TX:SET<13, 7) ;FORX=7TO20:SEt(X, 8) 
:NEm 

3178 PRIMT8196,"0EBRlS'i :PRINT82ei,"TRflP"i :F0RV=9TO15:SET<7.V):S 
ET(28,V>:ICXTV 

3188 PRWr8334, "NORHfl REPRESS. '; :F0RX=8T019:SET<X, 15) :NEXTXFO 
RX=28T022 

3198 PRIKT§417, "LIQUID"; :PRIMT8438, "LlflUID"; :PRIHT§452, "CONPRES 
SOR"; 

3288 PRINT8488. "SEPflRflTOR"; :PRIKT8493, "SEPflRRTOR"; 
3218 F0RX=28T022:SET(X,6):NEXTX:FORV=7TO12:SET(22,V):»BaV:F0RX 
=23T042:SET<}C12) 

3228 IEXIX:SET(42. 13) :F0RX=26T059:SET<X, 14) :SET(X, 18) rNEXTXrFCRV 
=15T017:SET(26/Y) 
3238 SET(59,V):NE}CTV 

3248 FORX=81T072STEP-l:SET«X,13):NEm:FORM4T016:SET(72. V):NE 
XTV:SET<181,16) 

3258 Fa»<3TO82:SET<X,17)i«XTX:F0RX=89TO188:SET(X,17):ICm:F 
0RV=18TO23 

3268 SET<63,V):SET(82,V):SET(89-V):SET<188,V):«XTV 
3270 F0RX=68TO82:SET<X,24):NEXTX:F(IRX=89TOie8:SET(}t24):NEm:F 
0R5M89T0127 
3288 SET(X,28):«XTX 

3298 FCRV=16TO19:SET(14,V):rC){TV:FORX=0r(J13:SET(X,17):HEm:FOR 
X=6T049.SET<X,28) 

3388 MEXTX:F0RV=21T0e4:SET<&V):SET<29,V):NE5aV:F0RX=7TO28:SET< 
X,24):NE)m{ 

3318 PRINT8643. "OffRCOn."; :PRINTKS5> "(ERT'i :PRINT8679> *C02 RED 
«m«"i 
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3328 PRIIITi719, "EXCR '; :F(lRV=25T028:SET<i4. V> :NEXTV:F0RX=4TO23: 

SET(X,29) 

3338 S£U% 33) :ieaX:F0RV=3eTO32 :SET<4. V) :SET<23, V) :«XTV:FOIW= 

281048 

3348 SEKX, 29) :SET<X, 36) :NEm:F0RV=38TO35:SET(28, V):SET(4e. V) : 

HEXTV 

33» FDRX=76Tai85:SET(X,29):SET(X,33):MEXT){:F0RV=38T032:SET(76, 

V):SET(185,V) 

3368 NEXTV:SET<72,25):F0RX=72T0123:SET(X,26):MEXT)C:F0RV=25r06ST 

EP-1:SET<123,V) 

3378 IC}aV:F0RX»122TO62STEP-l:SET(X, 6) :NEXTX:SET<181. 25) 

3388 PRINT8e36,"Hfl(TER*; ;PRIHT885L"C02 RBOfflL'i :PRnrr8898. "SEP 

flRBTGR"; 

3398 PRWT8886, "REGEKRflTDR"; :PRIMT8e24, 'WS*; :FORX=74T099:^( 

X,35):SETO039) 

3488 PRIHT8128,"Hrj:PRIHTe84,"FD"i 

3418 NDaX:F0RV=36T038.SET<74,V):SET<99,V):NEXTY 

3428 FORX=11«T0119.SET(X,35):SET(X,39):MEXTX:FORV=36TO38:SET<11 

8.V):SET<119>V) 

3438 li}aV:F0RV=25TO37:SET<68, V) :I€XTV:F(]RX=61T075:SET<X, 31) :HEX 

TX 

3448 SET<88,34):FDRX=188T0ie9:SET<X.37):MEXTX 

3458 F0IB^3Ta22:SET<X, 38) :SET<X, 45) :NEXTX:Fe)RV=39T044:SET<3. V) : 

SET(22,V) 

3468 tCXTV:F0IW=38T059:SET(X, 38) :SET<X.42) :NEXTX:F0RV=38TO42-.SE 

T<37,V):SET<6aV> 

3478 NEXTV:F{1RX«64T068:SET<X, 48) :SET<X, 43) :NEXTX;F0RV=41TO42:SE 

T<64,V):SET(68,V) 

3488 NEXTV:F0RV=39TO25STEP-l:SET(66,V):HEXTV:SET<32,37):F0RX«32 

T023STEM 

3498 SET(X,38):NEXTX 

3588 FORX=186TO123:SET<X,31):I«CTX:FORV=32T045:SET(123.V):NEXTV 

3518 F0R»»123TO114STEP-l:SET<X,45):NEXTX:F0RV=44TO485TEP-l:SET< 

114.V):NEX1Y 

3528 FflR»=113ra23STEP-i:SET<X,45):NEXTX:F0RX=23TO36:SET<X,41):H 

DfTX 

3538 F0RV=21T037:SET(49, V) :ICXTV:SET<14, 34) :F0RX=14TO27:SET<X, 3 

5):MEXTX 

3548 FORX:0T8^:SET(X>41):NEXIX:FORya42TO47:SET<l,V);ieaV:Fa«» 
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1TO127 

3358 SET(X.47):NEXTX:F0RV=47TO2STEP-l:SET<127,V):ICXTV 

3568 FORMTOieeSrNEXTM 

1578 FflH.=lT03 

3588 PRIMTIT?," "i:PRIIirW41," 

3598 PRIIfTi285,' "KFORIMTOSSSrNEXTO 

3688 PRINTei42,'EiCRG. REPfiESi '; 

3618 F0RV=5TOW:SET<26. V) :SET(57, V) :NEXTV:F0RX=26T057:SET<X, 18) : 

SET<X,4):NEXTX 

3628 F(1R(WT0588:NEXTO:NEXTL:FOI«N1T03 

3638 F(]RV=42T047:RESET(1, V) :NEXTV:FORX=1T0127:RESET<X, 47) iNDCTX: 

F0RV«47T(J2STH»-1 

3648 RESET<i27,V):NEXTV:FGRX=127T0285TEP-l-RESET<X,2):NE>{TX:F(lR 

PslT02fle:l©aP 

3658F0R^:42TO47:SET<l,V):NEXTV;F0RX=lTO127:SET<X,47):ICm:F0RV 

=47TO2SliP-l 

3668 SET(127,V>:NEXTV:FOR»=127T028STEP-i:SET(X,2>:NDaX:NEXTQ 

3678 FOSslTOS 

3688 F(]RX»65T067:SET(X,41):SET(X,42):ICXTX 

3698 F(]l«»lT0388:NEXfR 

3788 F0RX»e5TO67:l£SET(X.41):ISSET(X,42):ICm 

3718 F(M»4Ta388:IC9(n:NEiaS:F()RMT05 

3728 PRINTI334,- '; :F(]HHT0488:IEXTfi 

3738 PRINTt334,*NQRI«. REPRESS*; ;F(]RR=lT0488:ieaR 

3748 NEXTS 

3758 ' <« FALL THROUGH HERE TO NEXT DISPLAV >» 



4M8 ' SHIP'S miN POER USERGE INDIOITtIR eflR GHRRT 

4828 ' -— ~- — 

4838 CLGflRSS 

4848 DEFINT f)-V 

4858 aS.I«=7 

4868 FaiH«63TQB31Sfe>128:PRIMT8NtLN:»#4:NEXT}1 

4878 F0RVMTO4eSTEP6:SET(S,V):NEXTV 

4888 F(1RV=3T042:SET<6.V):KXTV 

4898 F0R9t»6TO127:SETa43>:ICm 

4188 PRIWI9e5,"R-l ft-2 fl-3 B-l B-2 B-3 C-1 C-2 C-3 0- 

1 ^-2 0"i 

4118 PRIirr"-3"j 
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4128 mmm. 'SHIP'S HRIN PONER USnOE INDICflTORS*; 

4138 2=1325.85 

4148 FORP=1T04 

4158 B»18:PRIHT855,2; 

4168 G0SUB4578 

4178 ON P GOTO 4288.4188.4188.4188.4188 

4188 F(1RV^32TO64STEP^:PR1HTIV«/?,* "jtieCTV 

4198 PRIIITti25,"; 

4268 F0RVM3T(lf(STEP-l:Fa«>«T(ief5:SET(X.V):ICm:ME}(rV 

4218 »«»18:IFB=138nei42» 

4228 GOTWlfii 

4238 2=Z4.81 

4248 F(i»4T02B8:IGmi 

4258 NEXTP 

4268 FORU4T01888:IEXTU 

4278 F()RU«37TOG95TEP-64:PRINr8U.CMR$<38}i:NEXTU 

4288 FORfKTOl 

4298 PRIMT8389>CHR»(38>i 

4388 PRIKTi453.CM»(38>j 

4318 PRIKT8517.Clfi$(38)> 

4328 PRINT8581.CH»(38)i 

4338 GOSUB4438:F0RIKTO2888:NDnN 

4348 lexre 

4358 FORUs837T069STEP-€4:PRINT8U.CII»(38);:ICXTU 

4368 ' <« JUMP TO NEXT DISPlflV >» 

4378 GOT05e38 

4388 G09JB4568;X=)Cf2:V«22 

4398 F0IW=XT(1K+1:SET(X.V):«XTX;V=VH 

4488 IFV»26TNEN4428 

4418 G0T04398 

4428 (»Slfi4568:RETURN 

4438 X=18;a)SUB4388:X»X49 

4448 G0S(fi4568:X=XH 

4458 F0R}«aOX+8:Srr<X,21):SET(X.26):KXTX 

4468 G0SUB4568:X>X49:(j(}SIB4568:X=X«2 

4478 F0R»«r(K*l:SET<X.22):NEXTX:F0IW=XTGK*l:SET<X.23):l«aX 

4488 F()RX»XnKH:SET(X.24):NEm:F(l«>«T()K41:SET(X.23):iGaX 

4498 Fa»4T0XH:SET(X.22).NEXTX 

4588 G0Stfi4568:X>X49 
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4S18 


QOSUB4560:X=X+9:GOaB4388 X=X+9 


4S2e 


GOSUe4560:FOIWsXT(S<^:SET<X, 21) :SETa 24) :IEm 


4538 


(](lSUe4560:XsX^:GOSU64560:X:«H 


4540 


F0RX=XT0X+9:SET(X, 26) :NEXTX 


4558 


RETURN 


4568 


F0RV=21TO26:F0RX=XT0X+l:SET<X,y):NEXTX.X=X-2:HEXTV:RETURN 


4578 


fl=Rn><42):IFft<=3THEN4578 


4568 


RETURN 


jIXKI 


/ 


5818 


' OFFICIAL NflVIGflTlONflL STARS 


5828 


' «.-.— ™-.™-,rxrT«™r -r ^-^-r 




5838 


OS 


5848 


CLEAR 188 : DEFINT A-Z 


5858 


PRIHT«STARDfiTE7412.8 >» STARFLET CO 


NMOUh 


<«• 


qaca 


PRINT* OFFICIAL NAVIGATION ST 


fl R S' 1 


5878 


FORXs0TO63:PRINT*-*; :ICXTX 


oUoo 


PRINnflB(5)j n«€"i TflB<21)i 'HAGNITUDE'i TAB<34); "SID. HOUR 


MGLE* 




5898 


PRINnAB<53)i 'OEaiNATION*; 


5188 


F(]RX=8T063:PRIHT»-"; :«XTX 


5118 


PRINTi328,a«*(31)i 


5128 


PRINI rAB(8); "ACANAR"i TAB<24)i "3. 1% TAB<39); "316 DEC. "; TAB< 


55>i»S 48"i 


5138 


PRINT* OEG'J 


5140 


PRIMITAB<0); 'ACHERNAR*; TAB(24)i *ft 6"; TAB<39); •336*; TAB<55) 


j'S. 57" 


5158 
. 63" 
5168 


PRINnAB<0)i *ACXUX*iTflB<24); *t l"iTAB<39); •174"jTflB<55); "S 


PRINnAB(0)i *ADHARA*;TAB<24); "1. 6*; TAB<39)i ■256*; TAB<55); " 


S. 29' 


. 


5178 


PRIMnAB(8)j •ALDEBflRflH"; TflB(a4)i *t 1*; TflB<39)i "291*; TAB<55 


)i»N. 


16* 


5188 


PRIHTTAB<0)i "ALI0TH*i T(«<24); •! 7"; TAB(39); "167"; TABO); * 


N. 56' 




5198 


PRIHnAB<0); "ALKftID*; TAB(24); "l. 9"; TAB<39); "153"; Tfle(55); " 


N. 49 




5288 


PRINTTAB(0);"AL HA'IR";TAB(24);"i2";TAB<48);"28";T««<55); 


-S. 4? 


n 
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5218 PRIHTTflB(0)i "flLHILflH'j TflB<24>; "t 8"; TflB<39); "276"; TflB<55>; 

•S. 1" 

5220 PRINTTflB(0); "«.«««>"; TflB(24)i "2 2"; TflB<39); "218"; TflB<55); 

"S. 9" 

5238 PRINT" "i 1"; 

5248 FOR2=8TO5808:K}(TZ 

5258 PRINT8328,a«*(31); 

5268 PRINTTflB(e); "flLPtCCCft"; Tffi(24); "2. 3"; TflB<39); "127 OEG"; TAB 

<55);"tt 2"; 

5278 PRINT"7DE6"; 

5288 PRINTTflB<8)i "flLPHEHTrZ"; TflB(24); "2. 2"; TflB(39); "358"; TflBCS 

);"N. 29" 

5298 PRIMnflB(8); "fILTfllR"; TflB<24); "8. 9"; TflB<48); "63"; TflB<55); "N 

9" 
5388 PRlMTTflB<8);"fM<flft";TflB<24);"i4";TflB(39);"354";TflB<55)r'S 

42" 
5318 PRIHnflB(8); "flNTflRES"; Tfe(24); "1 2"; TflB<39); "113";TflB<55); 
"S. 26" 

5328 PRIHTTfle<8); "flRCTURUS"; Tfe(24); "8. 2"; TflB(39); "146"; TflB<55> 
;"N. 19" 
5338 PRlNnflB<8); "flTRIft"; TflB(24); "t 9"; TflB(39); "188"; TflB<55); "S 

69" 
5348 PRINTTflB(8); "WIOR"; TflB(24); "1 7"; TflB(39>; "234"; TflB<S); "S 

59" 
5358 PRIMn(«<8); "BELLffTRIX", TflB<24); " 1 7"; TPB(39); "279"; TflB(55 
);"H 6" 

5368 PRIHnflB(8);"BETaGEUSE";TflB<22);"8.1-8.2";TflB(39);"271";T 
flB<55); 

5378 PRIHT'ft 7" 

5388 PRINT" "2""; 

5398 F (KZs8T(]S888:NEXT2:PRIKTI32e, CHR$(31)i 
5488 PRIMnflB<8); "CflNOPUS"; TfiB(23>s "-« 9"; TflB(39)i "264 DEG"; TAB 
(55); •& 5"; 
5418 PRIMT"3 DEG"; 

5428 PRINnflB<8); "CflPELLfl"; TflB<24)} "8. 2"; TflB<39); "aSl"; TflB(55); 
"R 46" 

5438 PRIimflB<8)i "0E«B"iTflB<24)i "1 3";TflB<4e>; •58";TflB<55>i "R 
45" 
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5448 PRIimfB(8)i-0EICB0Lfl"iTflB<24)i'i2MflB<39);«18J«iTflB(S5) 

;•» 15" 

5450 mmmih "OIPIW"; TflB(24>j •^ 2"; TflB<39); •349"; TflB<55); " 

S. 18" 

54fi8 PRII«nflB<8)} "W»C"i TflB<24)i 'Z 8'i TflB<39); "194"; TflB(55); "M 

.62" 

5478 PRIMnflB(8>J "ELNnTH"; TflB<24); "1. 8"; TflB<39>; "279"; TflB<55); " 

R 29" 

5488 PRIIITTflB<8); "ELTflNIM"; TflB<24); "2 4"; TfB(48)j "gi"; TflBOS); ' 

R 51" 

5498 PWIITTflB(8); "ENIF"; TfB<24); 1 5"; TflB<48); "34"; TflB(55>; 'R 

18" 

SS88 reiimflB<8);"F»«J«JT";TflB<24>;"t3";TflB<48);"16"j1fiB<55) 

;"S. 38" 

5518PRIRT" "3 r; 

5528 F(]RZ=eT05e88:)CXTZ:PftIHT»28> CHRt(31}; 

3538 PRIMTTflB<8); "flflCRUK"; TflB(24>; "1. 6"; TflB<39); "173 DEG"; TflB<5 

5>;"S 5"; 

3548 PRIHT'7 0E6"; 

5558 PRIWTIW8); "GIBHH"; TflB<24); "2 8";lflB<39); "176"; T«(55); " 

S. 17" 

5588 PRIWTflB<8); "HflWR"; TflB<24); "8l 9"; TflB<39); "149"; TflB<55); "S 

. tt" 

5578 PWMn«(8)i "HflNHL"; TflB<24); '1 2"; TflB<39); "329"; TfiB(55); "M 

. 23" 

5688 l>RINTT!e(8>; "KRUS flUSTRHIS"; TI6(24); "2 8"; TflB<48); "84"; TA 

8(35); 

5898 PRIRT"S. 34" 

5688 PRIMTIflB<8); "KKHRB"; TflB<24); "2. 2"; TflB<39>; "137"; TflB<35); " 

R 74" 

5618 PRINTTRB(8); "NRHKIIB"; TflB<24); 'Z 6"; Tfie<48>; "14"; TflB(S5); *N 

. 15" 

SS28 PR1HTT(«(8); "WNKBR"; T»<a4); "2 8"; T«(39); "315"; TflB<55); " 

R 4" 

5638 PRIMn«B<8); "HEIKEMT'; Ttt(24); 'Z 3"; TflB(39); "149"; TflB(55>; 

•S 36" 

5648 PRlRniflB<8>;"«IflPL«;iW)5";TOB(24);"18";TfiB<39>;"222";TI»< 

35);"S. 78" 

5658 PRIWT" "4 1"; 

5668 FOR^8TOSe88:NEXTZ:G0TQ1878 
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ADVENTURE 

Get the granddaddy of the Adventure Games! 

From Microsoft, the people who wrote 
BASIC for all the personal computers, comes a 
version of the original Adventure. NOW, you 
no longer need a PDP- 10 for all the power of the 
original game! 

This game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the 
level of Grand Master (until you gain skill, there 
are whole areas of the cave that you cannot 
enter.) 

Requires 32K One Disk ONLY $29.95! 



(> SfirthS/n-cf fk)x(i8 MilkKti Ntl OVnS H) f^i >m 
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AMATEUR 

ASTRONOMY 

HANDBOOK 

by George Hali 

$14.95 

Amateur Astronomy Handbook is a Level liri6K program 
designed to lielp anyone from tlie casual observer of the glorious 
Night Skies to the more advanced amateur who needs reasonably 
accurate positional information on the Sun, Moon and Planets. 
Partial List of Features: 

* Convert Locai to Sidereal time 

* Convert Right Ascension/Declination to Azimuth/Altitude or 

Heliocentric Longitude/Latitude 

* Determine Local times of Sunrise, Sunset, Moonrise, Moonset and 

Phases. 

* Plot position of Sun^ Moon and visible planets. 
neSalh&an Exchange 





LOAN 
IZATION 



by Rick Rogers 



'1t pays to Amortize!'' 

Professional Loan Amortization Program for Bankers, or those who 
deal with Banks. Shows your monthly payments and tells you how much 
of each payment will go for Interest and how much for Principal. The 
use of a lineprinter is optional. 

Whether you make loans or just pay them — Loan Amortization is the 
program for you. 
Level II, 16K $19.95 

mSimJl 6 SouthStreet,Box68Mlford,NH 03055 e03'673-5144 
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ymbolic Trace and Debug 

A powerful monitor for the TRS-80 with special ability In Tracing and 
Debugging. Single Step through machine language pro grams or set up to 
three breakpoints, and ioolc at this display format! 




I 




RF BC DE HL IX IV fiF' BC' DE' HL^ SP PC 
8044 8888 CflW B77C 6453 FFFF 0182 0888 4888 3FC8 41FC 4488 
4486 U> A» 

Alt the power of regular monitors as well. l.ooic at tliese commands: 



A FIRSTCO) LAST(FFFF) 

B 

BVALA 

BVALAVAtBW 



D flBStm UST(FFFF> 

E FtR8T(0) 

F FIRST UST VALUE 

€IBRKPTSOm«c.) 

H FIRST UST VALUE 

IPORT 

K 

L 

L SECTOR MEMORY C0UNT(1) 

M FfRST LAST BLOCK 

H 

NO 

N VALUE 

N FIRST a 

O PORT VALUE 

P 

P ENTRY 

P FIRST LAST 

Q FIRST LAST 

R 

S FIRST LAST OPTION(0) 

T COUNT OPTION{6) 

U FIRST COUNT OPTION(0) 

V FIRST LAST BLOCK 

W SECTOR MEMORY C0UNT(1) 

X FIRST LAST BLOCK 

Z FIRST LAST VALUE(0) 



ASCII dump 

fomiatt«d ASCt^tlump 

Start of branch table 

display In decimal 

hex arithmetic . 

check systsni tape 

dump hex 

edit memory 

findt^e 

set t>reakpoint8r contintie 

find word 

read port 

keyboard echo 

load system tape 

toad from disk 

move memory 

display symbol table 

symbol table to tape 

define value for symbol table 

define start symbol table 

write to port 

Initialize memory blocks 

write memory blocks and start 

define a memory block 

calculate checksum 

display / modify registers 

disassembler 

trace Instructions 

unformatted tape 1/0 

verify memory 

write to disk 

exchange memory 

zero memory 



16K, 32K, and 4aK versions on one cassette for $24.95 
(Use from tape In Level II or as a command file from Disk) 

TheSafiwat^Ejichange 

6 SouthStreet, Box 68, Milfoid,NH 03055 603-673-5144 
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Put IRV 
on your 

programming 

Staff! 

Comes with manual 





Input shorthand — one keystroke 
can enter a whole line! The feature 
you liked in Level III BASIC and T-Short, 
now with all keys user programmable! 
You can even turn your cassette player 
on or off with a single keystroke. 




Relocate a Wne by simply editing the line 
number — renumber lines individually! 

Video Editor allows cursor oriented 
editing of your programs. Just move the 
flashing cursor to the line to be edited and 
type the corrections, insert, or 
delete! 

IRV is faster than Level II BASIC! 
More powerful than a speed 
typist! Able to leap ten 
subroutines at a single bound! 

Machine language tape $24.95 On Disk $29.95 

The SoHware Exchange 

6 SOUTH ST.. MtLFORD, NH 030S5 673-6144 
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lVIAW 



REVIEW OF TYCOON 



by Brad Cameron 



Tycoon, by David Bohike, Is a 1- 
to-5 player game which simulates 
your decisions as the head of a big 
business corporation. 

As you work your way up from a 
laborer to a tycoon, you must 
make sound decisions depending 
on your economic forecast (which 
ranges from poor to excellent). 
You can purchase up to five 
factories, and within each, control 
the amount and pay of your 
employees, the item production 
cost, percentage of Inventory to 
release, amount of salesmen to 
hire, and even how much money to 
spend on advertising. 

The game play is fast and the 
outcome is predictable only when 
someone wins, as each year's 
analysis changes so that one 
player can have several good 
years, while another player can 
have several bad ones. The object 



of the game is to pay off your 
business debt as fast as you can 
while trying to make ends meet so 
that you can buy more factories to 
make more money. This In turn will 
make you a business TYCOON. 

The program listing makes it 
easy to follow how the game works 
and how to make the fast-drawn 
graphs and bar charts. These 
show each players status in the 
game, as well as your out-of-debt- 
profile. Very little luck is involved, 
although the market analysis is 
chosen randomly. Buy this— it is 
the players skillful decisions that 
may win them the game, as there 
are many different strategies to 
use. 

The game is popular at our 
house among two or more people, 
and it is a game that should not be 
left out of any collections. 
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TYCOON 



Take the helm of a small 
manufacturmg business - set 
pay starrdards, advertising 
budgets, etc. Your progress is 
well-charted. 



This game can accommodate up 
to four would-be financial 
wizards... last one to make 
$10,000,000 becomes the jani- 
tor! 




$ DOMES 
BOOKEEPING 



for small business 



by Roger Robitailley Sr, 



Based on the famous Dome Bookkeeping System, this program is designed to 
serve the small business with few employees. Uses the same chart of accounts as 
the Dome journal, with instructions on how to customize to your own needs. 
Presents data year to last week, this week, and year to date. Enter checks and 
deposits; receive screen or printed reports — account summary, check register, 
deposits, and profit & loss. Manual provided. 

Tape version. Level H, 16K (witkoitt Dome Jottrnal) . . . .. $24.95 

(with Dome Journal) .........: $31.95 

Disk version, 32K . (wititout Dome Journal .... ... $29.95 

(with Dome Journal) $36.95 

JheSafh&areEjoAange 

6SouthStreet,Box68,Milfoid,NH03(m 6(B-673-5t44 
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NOTE: ST-80 is a trademark 
of Lance MIcklus, inc. 



by Lance Micklus 



The ST-80 family of 
smart terminal packages 

Now you can have the right terminal package for your 
communication needs! From ST-dO UC — the simple, pre-set, 
Inexpensive terminal program designed for users of THE SOURCE, 
MiCRONET, and FORUM 80 — to the power and sophistication of ST- 
80 111, The Software Exchange has the package for you. 

All four programs Include the ability to use an unmodified tRS-80 
keyboard to produce RUB, ESC, and other control characters for 
time sharing, software control of the RS-232-C board, repeat key, 
bell, software support for the three most common upper/lower case 
hardware conversions, and line printer output. 

ST-80 UC 4K Level ti cassette, $24.95 

This universal communicator program is an easy-to-use timesharing 
program for the beginner. Special features include preset parity, word 
length, and baud taie (regardless of switch settings on the RS-232-C board) 
for THE SOURCE, MICRONET, and FORUM 80, automatic testing of the 
RS-232-C board, and even spooling of prepared messages on tape directly 
into FORUM 80 using a basic program supplied as a line listing. 

ST-SO 4K Level II cassette $49.95 

The original smart terminal program for the TRS-80, ST-80 lets you 
reprogram your RS-232-C board from the keyboard, and run at different 
baud rates. Does not have auto testing of RS-232-C or tape spooling. 

ST-80 D 32K disk program, $79.95 

Special features Include connection time clock, option of user-created 
translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, 
editing of received files, and auto logon. If you use it with VTOS 3.1, you also 
get device driven I/O, job logging, and chaining. 

ST-80 III 32K disk program, $150.00 

ST-80 D with extra utility programs 

theSalh&are Exchange 

6Sou^Street,Box68,Milfofd,NH0X55 603-673-5144 
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•IV Trak. tM Motion Picturt • 1t79 Parvmount Pleturai Corpi 




TARTREr 



by Lance Micklus 




Copyright 1979 by Lance 
Micklus. Inc., Burlington. VT. 
All rights reserved. 



You are the captain of the Starship Enterprise. Your mission is as foilows; 




A« «. > • m^ Star Tr»fc. th« Motion Pictum • 1979 Paramount Picturat Corp 

Star Fleet HQ 
Star Date 2fMM 

ORDERS: Captain James KIrIc 

1 Collect data on Sector Omega VI. Sector Is divided Into 192 
quadrants for exploratory purposes (S x t x 3 quadrants) 

2 Preliminary reports Indicate 5 Class M Planets In Omega Vi. 
Locate, orbH, and gather data on each of them. 

3 intelllgence reports 20 Kllngon warships In sector. You are to 
locate and destroy them. 

4 You are to complete your mission and report to Starbase In 
Quadrant 7,7,2 by Star Date 2500. 

Star Fleet Command 

That's the game . . now the ruies. 

First, you must never forget the Prime Directive: You should not shoot at 
anything except Klingons, otherwise you will go to jail. 
Also, you want to be careful maneuvering your ship. If you collide with a star- 
base they will complain to Star Fleet Command. This will result in a loss of 
points, making it impossible to get a perfect score. 

If you want to play the game to lose, try flying into a quadrant where there is a 
black hole or a class O star. The ship will be destroyed immediately and the 
game terminated. Another effective method is to ignore your crew and ship's 
reports, and just keep flying until you run out of energy. 
The only honorable way to die is to be destroyed in a Klingon battle. But that's 
enough on how to play and lose. Now on to . . . 
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Trak. ttM Motion PIctum • 1079 Pirwnount PIcturM Corp. 

HOW TO PLAY AND WIN 

COMMAND SUMMARY 

EntorpriM and Craw 
Awaiting your ortfars. Captain 

Status 

1 Damaga Control 

2 Sclanca Computar 

3 Ship's Computar 

4 LR Sansors 

5 SR Sansors 

6 Impulsa Englnas 

7 Warp Driva 

8 Pliaaars 

9 Photon Torpadoas 

10 Alart 

11 Rapair 

The program will break out of wait loops anytime the (ENTER) key 
is pressed. This allows experienced players to skip quickly to the next 
event, rather than wait for the six second wait loop to complete. The 
SHORT RANGE SENSOR SCAN may also be aborted this way. 

In this simulation of the Enterprise, you will work with two computers - the 

ship's computer and the science computer. Their function, and that of the long 

range sensors, is of prime importance to the game. 

To achieve your first objective, your ship s computer must have information 

about the number of KImgons, Starbases. stars, and planets tn each quadrant 

of the gataxy. More detailed information is not necessary to achieve object 

number one, but may be helpful to you. 

Each time you operate your long range sensors, the data displayed on the 

screen is also transferred and stored in the ship's computer. 

The ship's computer can also provide you with information. It can scan its 

data bank to locate any area of the galaxy for wnich it does not have any basic 

data etc 

Ship's Computar Command Functions: 

Data base scan to locate Kllngon warships 

1 Data base scan to locate star baaas 

2 Data baaa scan to locate Class F stars 

3 Data baaa acan to locate planets 

4 Data baaa acan to locate unexplored araaa 

5 Long range aanaor acan from data baaa 

6 Quadrant detailed diaplay 

SAMPLE QUADRANT DETAILED DISPLAY 

Cordlnataa: 7 7 2 
Kllngona: Star Baaaa: 1 
Stara: PlanatK 
Astronomical Feature: Star Fleet HQ 
Scientific intereat: Nona 
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LONG RANGE SCAN 



VOID 
K0B0S1P2 
IMOnUN OJflllKRNT 



K j B0S2P2 

VOID 
UNKNOUN QUffiRRNT 



VOID . 1 

K2B0S1P2 2 
UHKNOHN QURDRRNT . 3 



VOID 

VOID 

UNKNOHN »JRDRANT 



Koeesspi 

VOID 
UNKNOHN QiJF»»)NT 



VOID . 1 

VOID . 2 

IMKNOHN QURDRRNT . 1 



VOID 

VOID 

UNKNOHN QURDRRNT 



VOID 

VOID 

UNKNOUN OURDRRNT 



VOID . 1 

VOID . 2 

UNKNONN OJRDRRNT . 2 



LONG RRNGE SENSOR SCRN QURDRRNT 5 5 

HIT (fflTER) TO CONTINUE. 



You must now make a choice between using the Phasors or the Photof 
torpedos. Phasors aim themselves, but sometimes they miss. Also, Phason 
use up energy from those big 4,000 gallon gas tanks (what did you think those 
big things were in back of the ship?). The destructive power of the Phasorj 
decreases with distance. On the other hand, Photon torpedoes destroy 
anything they hit, and they use no power; but you must aim them. If you miss 
you might hit a planet, blowing it up and going to jail. 

Wait a minute! The Klingons shoot back. Well, this isn't like shooting fish in < 
barrel. That's why you go to RED alert and get those deflector shields up. A 
least if they do hit you, the damage is minimized. 

You will be notified of any damage to the ship by Damage Control. That ii 
unless they are themselves damaged. If you want the full report, use th< 
Damage Control command. You can also use a turn to speed repairs to th< 
ship by using the Repair command. 

U. Uhurahere... 

Damage Control reports the following: 



Damage Control 
Science Computer 
Ship's Computer 
LR Sensors 
SR Sensors 
Impulse Engines 
Warp Drive 
Phasers 
Photon Torpedoes 



Operational 
Operational 
Operational 
Operational 
Operational 
Operational 
Operational 
Operational 
Operational 
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ut no matter what you decide to do, there*s a lot of action here (and some 
ice little graphics too), so pay attention. 

Iter you've destroyed all of the Kllngons, you will want to go back to condi- 
gn GREEN. That way your deflector shields will be at a minimum power to 
ave energy. 

ou might have noticed that there is an alert condition which is YELLOW. This 
\ a standby battle ready condition that brings the shield power up part way to 
ffer some protection from Kllngon fire power, and yet stillconserves energy, 
^hy ever use condition YELLOW? Because quadrants near the Pulsar show up 
5 noise on the LONG RANGE SENSOR scan. 

Whenever you are on YELLOW alert or RED alert, you get a status 
report automatically each turn. Otherwise, you must ask for it. 

Statiia Report 

Stardate: 2206.53 
Energy: 3802 
Condition: RED 
Quadrants 5 2 
Sector: 3 3 
Photon Torpedoes: 3 

The science computer is the counterpart of the long range sensors. It provides 
DOth you and the ship^s computer with detailed information about the loea 
quadrant. This Includes the classification of stars and planets, and the loca 
tion and energy level of Kllngons. Again, this Is not worth any points ir 
evaluating the success of your mission, but is helpful to you in playing th< 
game. 

Since long range sensors only scan the immediate adjacent quadrants, you're 
going to have to move the ship. This is the function of the Warp Drive. ThiJ 
:ommand lets you move from ona quadrant to another, and automatically 
laviagates around things like stars and black holes. You must provide thV 
jestination quadrant and the speed in warp units. The faster you go, the mon 
energy you use. The slower you go, the more time (stardates) your trip wil 
ake. 

fou can think of the Enterprise as having a 4,000 gallon gas tank. By using the 
Status command, you can find out how much fuel you have left. You must keep 
four eye on this, lest you run out of fuel in the middle of space and die. To get 
nore gas, or fuel, you must dock at a starbase. 

To do this, you must first find a starbase by using your long range sensors, the 
ship's computer or a combination of both. But, don't try to dock at the star- 
)ase In quadrant 7,7,2 or you'll end the game - probably in disgrace. Use your 
Narp Drive to fly to the quadrant where the starbase Is located. 

WARP DRIVE 

Chekov here... 
Course {X,Y,2)? 5,5,2 
Warp Factor (0-8)? 3- 
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Now you must maneuver the ship within the quadrant. This is the function of 
the impuise Engines. You must supply the direction and speed. Use the com- 
pass below to give the direction. A unit of speed is approxirriateiy equal to one 
space. To dock, you must try to move the Enterprise into the same space that 
the starbase occupies. But don't try to move through it, or a collision will 
result. When that happens, other things will go wrong for you and a perfect 
score will no longer be possible. 

After a successful docking, good things will happen. For one, you'll get a full 
fuel supply. Also, your stock of torpedos will be set back to three, and most 
damage to the ship repaired. 

But let's say you have plenty of fuel and your long range sensors turn up a 
quadrant with a planet: go to that quadrant using your warp drive. Now use the 
science computer to classify the planet{s). If it Is an unexplored class M, then 
you will want to explore it. To do this, simply orbit the planet the same way 
you would dock to a starbase. Once orbit is achieved, the planet will be 
classified as an explored class M planet and points scored. When you have or- 
bited ail five class M planets, objective number two will have been achieved. 
You are now ready for objective numberthree called "Kill the Klingons". First 
you've got to find them. If you've been doing much exploring, that won't be 
hard. They'll show up on the long range sensor scans. You must now get ready 
for battle. 

First, you must put the deflector shields up to full power. Use the Alert com- 
mand and go to condition RED. Next, use the Warp Drive to enter the quadrant 
where the Klingons are. 

1 -GREEN 

2 -YELLOW 

3 -RED 

Enter Condition Code? 3. 

A Pulsar is a giant static maker. The static is so strong near the Pulsar that the 
Long Range Sensors can not detect what Is in the quadrant. Therefore, you 
must go to the quadrant using your Warp Drive to see if anything Is there. 
Don't be surprised if you suddenly find some Klingons. They're not dummies. 
They know you can't see them from any distance, so, they like to lurk in the 
Pulsar noise, ready for a surprise attack on the Enterprise. 
Some players like to explore the noise quadrants In condition YELLOW to con- 
serve energy and yet t>e ready for a surprise attack. Others prefer to explore 
these areas in condition RED. You'll have to decide for yourself how you want 
to handle this situation. But do keep one thing In mind about condition 
YELLOW; if Klingons should suddenly appear, the ship will automatically 
switch to condition RED to bring the shields up to full power. 
One other thing you will find In the galaxy Is a void. That's what the Long 
Range sensors will display when they scan a quadrant which has nothing in it. 
Ottierwise, It will display the numtier of Klingons (K), Starbases (B), stars (S) 
and planets (P). Now I'm going to let you In on a little secret. If you should 
return to BASIC , and want to continue, you can get back to the command level 
by typing GOT0 1 (ENTER). This is only to l)e used If, for some reason, the pro- 
gram should stop unexpectedly. It gives you a way to restart the game. Except 
for such an emergency. It should not be used. In fact, you should never have to 

45 



ise It. But just m case, It's there. rt*s assumed that you will play honestly. 

>o» get going! Load your tape In your tape player and CLOAD. It's time to play 

>TAR.TREKni. • 

6 * 7 * 8 * 





2 






void 




void 


* Unknovy^n Quad * 




4 






K1B0S1P1 




void 


* Unknown Quad * 1 5 


3, 


A 1 






void 




void 


* Unknown Quad * 2 


<^ 


v^ 













* * 


1 
5 


void 


void 


* Unknown Quad *0 




f 






K0BtS1P1 




void 


* Unknown Quad * 1 6 




6 






K0B0S1P1 




K0B0S2P2 


•Unknown Quad * 2 




void 


void 


* Unknown Quad * 










void 




K0B1S2P1 


* Unknown Quad * 17 










void 




Star Fleet HQ 


•Unknown Quad *2 
















♦ , ' ; ♦ 



LONG RANGE SENSOR SCAN QUADRANT 7 6 1 
Hit (ENTER) to continue 
The sample display, above, shows what a typical Long Range 
Jensor scan might look like. It was taken when the ship was located at 
juadrant 7,6,1 which is the quadrant in the middle of the display, 
'here's a Klingon, one star and one planet in quadrant 6,5,1. Do you 
»ee the starbase in quadrant 6,6,1? If you do, good. That means you 
mow how to interpret the Long Range Sensor Scan. The right most 
column is all "Unknown Quadrant'' because they are not in the galaxy. 
In other words, they don't exist. ^ 

LOAD AND SAVE GAME 

Because it can take up to two hours to play an entire game, a 
jave-game load-game feature has been added. When you are at the 
command level, type-!. The program will ask whether you are saving 
he current game, or loading a previously saved game. (Your cassette 
ecorder should be ready prior to using this command.) 

SPECIFICATIONS 

Play Board: 8 by 3 quadrants 
Weapons Systeins:Phasers and 
Photon Torpedoes 
Power Systems: Warp and 
impulse 

Computer Systems: Science and 
Ship's computer 
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S^fitort: Long and Short Range 

ftopoffts: Damage Control and 

Status 

Play Elemaffita: 20 KUngon battle 

cruisers, 100 stars and planets, 

black holes, pulsars 



SHORT RfMOE SENSOR SOU OF OURDRFNT 7 7 2 

HIT (ENTER) TO CONTINUE 

atartrek III.4 by Lane* MIcfclus - addwidum 

If you havs only 1SK of momory tlitn In addition to omitting all REMartis, you 
wil also want to dolota tha Disk i/O routinoa In Unas 40000 - 40400. 

STflRTREK III. 4 

1 IF ClOO TI£N 2060 

186 RflNDOt:CLEAR leOiDEFINT (lLP.S.IiU.V.Z:DIH R(388): RESTORED 

LS 

i2e FOR Z=e TO ie:PRlNT? RMXTOS). "*"; :NEXT Z 

148 PRINT8 784, "STAR TREKCR) III, VERSION 14 - BY LflHCE HIOCLUS 

i€6 PRINTER; TH PARfWXJNT PICTURES CORPORATION' 

188 PfilNT-COPVRIGHT NOVDCER 1979 - LflNCE HICKLUS. INC. * 

268 PRINT'BURLIMjTON> VT. . 85481 - ALL RIGHTS RESERVED* 

iZb U=25:V=14.I^:Q0S(JB 21528 

248 U=188:V=25.I=1.G0SU6 21528 

268 U=88.V=12.M.Q0SUB 21528 

288 REH 

1» REH ORISHOLOGV 

328 REH 
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ft(&-191) 
fl<192-255) 
SHIP'S LOCATION 
R(256) - B 
fl<257) - C 
fl(25e) - 



fl(259) - X 
R<26e> - V 
fl(261> - STATUS 



A(P) DATA UNPACKED: 
A(262) - KLINQGN'S 
A(262) - STflRBASES 
A(264) - STflIP; 



34e REM ft(d-191) GFLRKV 

360 REM A(192-255) QUAORfWT PAGE 

388 REM 

466 REH 

426 REH 

446 REH 

466 ' 

486 REM 

S88REH 

526 REM 

548 REH 

566 ' 

586 REH TVPE HOOIFIERS: 

686 REH 6 - ItFOUND CLASS H 

626REni-NQIC 

646 REH 2 - BLACK HOLE 

666 REH 2 - STAR 

686 REH 4 - P(i5flR 

766 ' 

DnWGEflRRAV. 

R(267) 

A(268) 

R<2£9) 

fKZTB) 

R(27i) 



A(265) - PLANETS 
A<266) - TVPE 



5 - SPACE NOISE 

6 - STAR FLEET HB 
7-GPLnCT 
B-UGfflOREDH 
9-B(PL0REDH 



DMIQE CQNimL A(272> - IIIUSE ENGINES 
SCIENCE ariR R(273> - HfKP DRIVE 
fK268> -PNR6ER5 
iK2C9) - PHOTON TWPEDOES 
A<276> - • OF TORFEMES 



SHIP'S anR 

LR SENSORS 
SR SENSORS 



VRRIfRES: 
E>EIERW 
IHMNINB SmSfllE 



T*STfHMTE 
S*SCflRE 



726 REM 
748 REN 
766 10 
786 REM 
866 REH 
82B REH 
846 ' 
868 REH 
886 REN 
981 REH 
928 REM 
948 REH 
968 REH 
968 REH 
1886 REH 

leeSREH 

1648 ' 

«M PUT IN KLINQONS «m 

1666 REFD BI»J:IF J0999 THEN 1666 

1888 P'4W<191)-1:IF R(P>06 TIEN 1686 



CKONSTmr FOR SIN t COS 
n^-l TO NOff HINBONS QM,V. 

SETUPGfLflKV 



8 TO NOVE fl» SHOT 
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UN HERD J:IF J)e LET R(P)>-J:QOro 

1121' 

•M SET UP PILSRR «M 

114e P^W(15e>:IH>:IF R(P)06 TICN 1140 

im QQSUB 2U8B:Q0SUB 2B5M 

1188 FOR »«(236>-i TO R(2S6m:Fat om257)-l TO R(257)H 

1288 RK MK296M TO R(25BM 

1228 QOSUB 28188 

12W IF PO-i LET R<P>«18tFIX(fKP)/18>-5 

12G8 NEXT D:ICXT C:lfXT B:B(H)»^ 

12B8 ' 

*** LORD PlilETS. STRRS. RMD OTIER STUFF *** 

1388 P-R»<i91>-1:IF R(P)08 TtBI 1388 

1328 REfD MP): IF iKP)08 LH fKP)>-(KP):6QIT0 1388 

1348 FOR IM TO 198: IF A(N>4 TIEN R(N)>-1 

1368 lEXT N:fl(256)«7:R(257W:R(2»)>2.(K276)s3 

1388' 

«M INITMLIZE VmmiES m* 

1488 E-3999:T«22B8:H4478:8i«:R<191>«ia8S:S>«:Cl=«L 785398 

1428 IK2»)'3:M268)>3:R(2(i)-l:O0SUB 3S68 

1448' 



2B8 m HRIN LIIC ROUTIIC 



280 OH BMR fiOro 8:CLS:KST0K:PRIIITGMM<23) 

2N8 PRWr-BneVRISE m CBr:PRlNri88UTIIB VDUR ORDERS. OT! 

Rm* 

2118 «D Bli J:PRIMT TmS>ii Mmt jmSmAf iOil TICN 2188 

2128 049: WUT"0ne6>iO 

2148 IF 0(8 Tie 49888 

2188 IF AMI OR INT(0>O0 TIEN 2868 

2188 IF 004 TIEN 2228 

2288 ON 04 GOSUB 8»48i 3668. 3328. 7368. 8888 : GOTO 2268 

2228 ON 0^ GOSUB 22128. 8228. 3668. 6908k 6828. 2908. 3968 

2248 ' 

M* HINBON'S TURN TO SHOOT *m 

i2a GOSUB 28548:G0SUB 28188: IF fBS(R<P»<188e8 TIEN 2488 

2288 GOSUB 6488 

2388 IF R(261)>2 LET R(261>*3: GOSUB 3868 
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2328 IF R<268>4 M fK271)-t LET 0>}:OOSIB 33» 

2Me IF R<271)4 QOaS 2212B 

2368 COTO 2466 

2388 ' 

**• SPfCE STOW *«« 

2488 BM*SPfCE STORN* 

2428 IF RMX188M QOSUB 3148.Q0SUB 4128 

2448 ' 

*«* SET UP NEXT PLAV ««• 

2468 IF R(261»l QOSUB 8948 

2488 T-T^.2.E>E-A(261>*fl(261>*ie 

2588 IF E<8 TICN 22768 

2528 MiQOSUB 3968 

2548 IF T<H TIEN 2868 

2568 CLS:PRINTCI1»(23>:FRINT8 384. "STAR FLEET CaUM) REQUESTS* 

2588 PRINT'ENTERPRISE RETURN TO* 

2688 PRINT"ST(1RBnSE 7.7,2*:H>HilB:G06UB 2e38e:G0T0 2868 

2628 OOTO 2868 

2648 REM 

2668 REH EM> OF TIC GffC -RflfTE PLflVER 

2688 REH 

2788 CLS.REST0RE:N>2588-T:IF N<8 TIEN S>S4M»ie 

2728 FOR P>€ TO 191:IF R(P)<8 TIEN 2768 ELSE S^Sn 

2748 IF R(P>-(FIX(f)(P>/18>«lB)'9 LH S»S«2B 

2768 NEXT P 

2788 RERD Bf.ZiIF Z0425 THEN 2788 

2888 IF S<Z RERD BtiZ:Q0TO 2888 

2828 PRIMTf 256. ■RRTING: *i INT<S/4. 91) 

2848 PRINTiPRINT-RMIRRL FITZPRTRICK lERE. . . VPfONT 

2868 PRINnflB(S)'CflPTRIN. RFTER REVIEMINS VOW LOG AD DfllTR TAPE 

S." 

2888 PRINTM RH GOING TO RECOnOD TO STAR FLEET THRT VOU BE %B 

2988 PRINT.PRINT:EiD 

2928 REH 

2948 REH ALERT STRTU5 

2968RER 

2968 CLS:PRINTC>fftl(23) 

3668 PRlini326.*l - GREENVPRINT'2 - VELLOH' .PRINT"3 - RED' 
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3iei MVT-ENTBt CONDITION COOE'iN 

3MI IF NQ OR M>3 OR INT(N}ON TKN 3KI 

W8 R(261)^ :IF IM RETURN 

3181 RESTORE 

3in RERD BI.J:IF J-2eOA(261> TIOI Jm 

312B' 

«MFU»0*** 

3146 M>IM(EVf :aS:PRINTCtl»(23) 

31fie Bt>STRINGt<(3»H£N(Bt»/2«- ■)iei 

3186 FOR K>« TO 4:PRINT6 SlZBt.FOR J=e TO 286 NEXT J 

32B6 PRIKT6 S12»ai»(38):F0R J'S TO 2B6:NEXT J 

3226 IF »KEVtOaf»(13) T)EN IfXT K.REniM 

3246 FOR K4 TO 6;IEXT K:RETURN 

3266 RBt 

32B6 REH SCIENCE COMPUTER 

3366 REN 

1328 CIS: IF R(268)06 LET I»2.Q0T0 3886 

3346 IF R(271)06 LET I«5:O0TO 3886 

33M(M 

3386 FOR P*192 TO 295: IF R(P}=18 OR R(P>^ TMEN 3566 

3466 IF 0*3 fl» R(P><2S TMEN 3966 

3421 CLS:IM2:V<4,4 

3446 FOR Z4 TO R»(5H2:PRINT6 R»<S12)4<3. '*'i :tGa Z 

3466 9SE 22326:6G6UB 21966:G06UB 2618 6 

3486 PRINr:PRINT-OBJECT HT-iSTRI(B)iSTRt<C>i- IS R %Bli*. * 

3966 IF fl<PK25 TICN 3546 

3S26 PRINT-RERDING%R(P>-2& "UNITS OF EIERGV. * 

3946 8QSUB 22386 

3966IEXTP 

3586 RETURN 

306 REN 

3C26 REH DfMRGE CONTROL SECTION 

3S46REn 

3666CLS:REST0RE:REflDB»*Z 

3686 IF R(267)06 LET MrQOTO 3886 

ITM PRINTOLT. UHURRtERL..' 

3728 PRINT-DRHRGE CONTROL REPORTS TIC FOLL0HIN6:':PRIHT 

3746 FOR 2>267 TO 275.REflD 6t«J:PRINT TflBa4>BI. 

37M IF 2-275 fl» R(276>'6 PRINT*** INOPERfmW «*":Q0ITO 3846 
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3788 IF fl(Z>»e PRIMT-QPEmTI()IH.-.(»TO 38W 

3888 IF fl(Z)<18 PRINT'ICMLV QPERHriail- 

3828 IF R(Z»9 PRINT'** INQPOnTIVE ••■ 

3848 NEXT Z.QOTO 28388 

3868 ' 

*** HHRT DOESN'T UORK *«* 

3888 CLS. PRINT Ctft»(23): RESTORE 

3988 REflO B$,J.IF lOJ THEN 3986 

3928 PRINT8 326. Bf>- INOPERATIVEVQOTO 22386 

3948 ' 

*** REPAIR DATIRGE TO THE SHIP **• 

3968 FOR N=l TO J. FOR Z=2b7 TO 275 

3988 IF A(Z)=8 THEN 4888 

4888 fl(Z>=(i(Z)-RND<5):IF R(Z)y6 THEN 4686 

4828 R(Z)=e. RESTORE: IF R(267)06 TICN 4888 

4846 READ BI.J.IF JOZ-266 TIEN 4646 

4668 CLS:PRINT6 326> aft>(23>; Bf." QPERRTIQWIVGQSUB 22386 

4688 NEXT Z:NEXT N RETURN 

4188 ' 

*** CRERTE DAHRGE TO TIC SHIP *•* 

4126 FOR J>1 TO 4-R<261> 

4146 ^266«R»(9):IF R(Z>06 TIEN 4246 

4168 R(Z>sRM><25>*J IF A(267)06 TIEN 4246 

4186 CLS. PRINT C»«$<23). RESTORE 

4268 REflD Sf. J:IF JOZ-266 TIEN 4286 

4226 PRINTI328. -DAHRQE TO ■iBt:G0SUB22386 

4246 NEXT J.RETURN 

4266 REH 

4288 REH BRTTLE DISPUtV 

4368 REH 

4326 CLS.P»X*8^V«19i:.U*36:Vsl4 

4346 OOSUB 21S86:Q0SUB 22S6:2>338 ml 

4368 PRINT.PRINTTflB<25>'SECTQR:-,X.V 

4386 Bl''' *MF 6>1 fl» I^S OOSUB S386:Q0T0 4466 

4468 6M--MF 1^5 TIEN OOSUB 5386:0010 4446 

4426 Z<336:B$s'>". OOSUB 5386 

4446 B$s' *:G0SUB5386 

4466 L<*4 

4486 IF 64 TIEN 4966 
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IF m(2M in Jl«Jl-X:ICl'Kl-V:eoro 
FOR M TO SaK«X-Jl)"2H«V-Kl)"2»:L>L*.S:iea Z 
4MI »gi:Ml:80T0 4C6I 



m* MMT mSS KTNOD TO COWUTE HIT «m 
49M 80SUB 7 2^9 ^ 

M(«Jl:VwViKi 

IF X<l OR ]07 OR Vd OR V>7 in P>-l:CLS:00ro 
4MIL0.6 

4MI P-IIIT(X>«e»INT(V)«19e 
4681 IF MP>4 TIO 46N 
47«IF»«RETim 
4721' 

M* DISPLflV FIRINB ••• 
4740 aS:V>lS:IF mp>'18 LET U4B 
47f8 IF QOi m M m IKPH2S l£T P»-1:Q0T0 4Mi 
47n IF QOl m I«l no R<P>01B let P»-1:QO!0 



4e2IIF M RETUM 



'<• 



M* MSPiw Hii OR mss ••• 

4660 QOSUB 223ai:PRINT:FRINT TflB(25)'SECT0R:MNT(X)«INT<V> 
4880 ON"* MF IM US 04 QOSUO 9480:OOTO 4980 

: IF IM QOSUe 9468:0010 4M0 

:Q0SU6 5460 
Bl>- VOOSUO 9460 
4K0 ' 
M« OMPUTE DfHff «M 

4980 e4:L«INTa>:IF P*-l OR M RETUOI 

9888 QOSUO 21340 

9828 IF IM m lOl Tm QOOS 9228:Q0SUO 22388:00110 22828 

9848 IF I09 TIEN 9148 

9860 eOSUO 9968:E4-L 

9888 IF L-M261)«79)0 QOSUO 4ia8:L-L-IK261)«79:Q0ITO 9888 

9108 IF E)0 RETURN 

9120 O01O 22788 

9148 IF lOi Tin 9228 

9168 IKPMKPH.:IF MP»29 RETURN 

9180 OOTO 9228 



93 



San IF KIM REIIM 

3221 PRINT Tmm> Mi* 0ES1l«O* 

SM FOR »4 ID 3i 

5268 ISSET(2i4lW<i7).12«fi»(S»:SET(2l4lW(i7)«]2«WD<S)) 

S2MICXTN 

33M fKP>4:Q0SUB 2I9«:Q0SUB 2I1M 

9321 A(P)<«5(IKP»-1MM:S-S*1I 

SM RETURN 

33M' 

•M mimTED FIRING R0UTIIC5 *m 

93MFnH-ZT0 3M 

54M PRINTf N.Mj :FQR H-1 TO 3:ICXT N 

SOI NEXT N:IFM. PRINT! 3Mi* " 

94MIETUM 

S4M FOR N>3M TO 338 STB> -1 

S4M PRINT8 N.Bt> :FaR U-i TO 3.IEXr H 

99M lEXr N:IF Q-1 PRINT8 33a* *i 

3828 PRINIf Mil ""i.RETUBI 

3948 ' •• SHRNE DISPLRV •• 

39M FAR IM TO INT(Ly98>: PRINT Ommh iFW N4 TO 3:IEXT N 

SSM PRINT CI«K2B>i :FOR IM TO S:IEXT N.KXr UieOTO SBM 

3M8iSI1 

3628 IBI MRRP DRI« fW lEU aMMRMT SET UP 
3648 REN 



S6M OS. IF R(273)08 LET WiQOIO 
36M QOSUB 28M8 

57H PRINT Ct«l(23> PRINT! 321 *QBW IfRL . . " 
STM IirUT-OOURSE (X.V.Z)*iaC.D:Q06UB 281M 
3748 IF P^ TIEN 5728 

57M Ili>Ur*IMP FRCTQR (8-8)*iK:IF »4 TlfN RETWI 
57M IF K<i OR Oe OR INTOOOK TIBI S7M 
9N8 L>6aR(((fK296}-B)"2H((fK257>-€>'^H«IK298>-ft)'7» 
3828 IF E-188>L<K«(OK TIEN 3948 
3848 CIS.PRINT! 328i CMtl(23)i *SCOn lERL . . '.PRINT 
38M PRINT*SORRV CflPTRIN. ■:PRINT*BUT IE JUST MM'T NME' 
38M PRINT'ENOUW EIERQV * 
QOTO 



•M fINUST TIIE/ PUCL EIERQV, tW SEE IF CATaSTROPW «•• 
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SM E4-L«((«K«K:T-T«2«LHyK.Q0SUB 

SMB J*MT(L«IA):IF JA QOaB 39M 

39M 60SUB 2B540:GOSUB 2I1M:Q0SUB 2828B 

6888 IF A(2tt)>e UET R(266>>8:MP)>FIX(iB5(MP»/ie>«l»«e 

6826 IF R(26S»8 fN> A(266)«i LET R(2S6W:Q0SUB 28228 

6848 »«.OV:D>3:80SUB 28128 

(868 IF Al266»i fl» R<266)<5 TICN 22628 



*** BUILD tCU QUflOMNT *m 

6188 IF m2fi6»7 LH R(265>«fl(265)-1 

6128 FOR N-192 TO 25S:R(N>>e:NEXT N:R(P) 

6148 FDR N462 TO 265 

6168 IF R<N)>e TKN 6288 

6188 IF N«262 LET IHW<lS88>*29e 

6288 IF N>20 LET N>28 

6228 IF IM64 LH IMS 

6248 IF N>265 LO 1^3 

6268 Q09B 21968 :R(N)^(N>-1: GOTO 6168 

6288ICXTN 

6388 IF R(266»7 LO n^.OSJi 21988 

628 Ri^.OOTO 22128 

6348 REM 

6368 REM KLINQON FIRING SET UP 

6388 REM 

6488 FOR R-192 TO 2S5 

6428 IF R(R)<25 TICN 6728 

6448 X>INT((R-192>/8).V>R-19e-(}M):Xl>X:Vl"V 

6468 IF R»(2»l TICN 6568 

6«8 Jl>SGN(R<2S9>-)O.ia>S0N(fK26e>-V> 

698 IF KX TICN Jl>2-m(3>.Kl«2HBO<3> ELSE J1«J1*<R»(2>-1):K1 

^•<M<2)-1> 

6928 IF X«Jl>-8 fl» X«Ji<-7 LET X1«X4J1 

6948 IF V4K1>8 M V«Ki<«7 LET Vl«V*ia 

6968 IF R(Xl«em«19e)4 LET 2^<Xt9*V*iSX> .hCm*»MX>^:mti: 

v-vi:R<)(«emi9e)«z 

6988 IF n TICN 6728 

6688 JM(298)-X.K1*<K268>-V 

6628 Xl>X:Vi>V.J2>Jl:K2-Kl:Q<-.Q0SIB 4968 

6648 IF P*-l TICN 6688 




t 

i 
I 
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6668 IF fl<P)018 THEN 6729 

6688 X=Xl:V=Yl:Jl=ft(259).Kl=fl(26e):Q=e:L=RND(ft<R)*. 7) 

6788 IF L>ie8 LET fl(R)=fl(R)-L:QOaJB 4328 

6728 tea ;IGi=8: RETURN 

6748 R01 

6768 REH FIRE SHIP'S HEflPOfC 

6788 REM 

6888 ' 

*** TORPEDOES *** 

6828 CLS;IF fl<275)<>8 OR fl(276)=8 LET I=9;G0T0 3888 

6848 Q=l:QOSUe 22128 

6868 INPUT"T0RPEDO DIRECTION (8-8)M;PRlNT TflB(i8)" " 

6888 IF K8 OR I>8 THEN 6868 

6988 ICi=-l : G0SU6 6488 

6928 J1=C0S(I*C1):K1=-SIN(I*C1):Q0SUB 28548 

6948 fl(276)=fl(276>-l:Q=l:L=8888:(j0T0 4328 

6968 ' 

*** PHRSERS ♦** 

6988 aS:IF ^(274)08 LET I=8:G0T0 3888 

7888 PRINT CHRI(23> : PRINT8 328. 'SULU HERE. . . * 

7828 IHPUT'ENERGV'iOiIF 0<=8 RETURN 

7848 PRINT*FHRSERS LOCKED ON TRRGET. " 

7866 FOR Rs8 TO 2S8:NEXT R 

7888 FOR KtniSZ TO 255 

7186 IF R<K'.)C25 THEN 7288 

7128 KXr'i . GOSUB 6488 

7146 X=INT«R5i-192)/8) : V=R?.-192-X«« 

7166 J2=X:K2»Y 

7188 Jl«X-R<2S9):Kl^-fl(268):Q0SUB 26546 

7288 Q»2:G0SUB 4588: 0=6 :Jl=J2:ia^:L^:O0SUB 26548 

7228 IF P=-i THEN 7268 

7246 IF R(P)<25 TI€N 7286 

7268 IF E-188-0>8 LET E^E-OiOOSUB 4326 

7286 NEXT Ki: RETURN 

7386 REM 

7328 REH SHIP'S COMPUTER 

7346 REM 

7368 CLS: RESTORE: IF R(269)08 LET I»3:(i0T0 3886 
7388 RERD Bt.J.IF J058 T(€N 7386 
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7488 PRINT"SHIP'S MMPUTER COHMfflfitFIMTICM: SPRINT 

7428 PRINT TflB(4)J-58i " DRTR BflSE SCflN TO LOCfiTE "iB* 

7448 IF J054 l^ffl) B$>J:GOTO 7428 

7468 PRINT TflB<5>"5 L(M5 fm£ SENSO? SCflN FROH OflTfl HBE" 

7488 PRINT Tfffi<5)"6 OJflCRflNT DETAILED DISPLflV" 

7588 PRINT :INPUT"ENTER FUNCTION"iO 

7528 IF 0<8 OR 0>6 OR INT<0)O0 THEN 7366 

7548 IF 0<5 THEN 7668 

7568 ON 0-4 GOTO 7960.7840 



*** SCflN I LCCflTE *** 

76^ eLS:REST(KE 

7628 READ B*, J: IF J-58<Xl THEN 7620 

7648 PRINT"ENTERPRISE Cl«f€NTLV LCKflTED fiT;"ifl(256)ifl<257)jfi(258 

) 

7668 PRINT"DflTft BflSE SCAN FOR ";B$i";":PRINT 

7688 FOR P=8 TO 19i 

7788 IF 0=4 AND fl<P)<8 THEN 7788 

77^ IF A(P)<8 OR 0=4 TtCN 7888 

7748 GOSUB 28288 

7768 IF A<262+0)=8 THEN 7880 

7788 GOSUB 28188: PRINT B;C;D, 

7888 NEXT P:PRINT:80T0 28388 

7828 ' 

*** OJflDRANT DETAILS *** 

7848 INPUT-ENTER QUADRANT (X, V, 2> "i B, C, D : 60SUB 28188 

7868 IF P=-l THEN 7848 

7888 GOSUB 28288 

7988 IF A<P)<8 PRINT"NO DATA flVAILABLE. ":QOTO 22388 

7928 GOTO 28588 

7948 ' 

*** COMPUTER LR SCflN *** 

7968 INPUT"ENTER QUADRANT «,V,2)";av,W:CLS 

7988 PRINT8 984, "LONG RflN(£ CWIPUTER QUAE«flNT SCAN QF"i \ii Vi Hi 

8888 R=1:G0T0 28888 

8828 REH 

8848 REH long RANGE SENSOR SCAN 

8868 REM — ~ 

8888 CLS:IF A<278)<:>8 L£T 1=4 .GOTO 3888 
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8186 U=fl<256).V=fl<25?);H=fi(258):R=0 

8120 PRINT»899, "LONG RfiNGE SENSOR SCaN"i ;PRINT§928, "QUfiORftNT"; Ui 

ViHi 

8140 GOTO 20800 

8160 REH 

8180 REM IMPULSE POI€R 

82^ REM 

8220 CLS:IF ft<272)<>0 LET I=6:G0T0 3880 

8240 8=1; GOSUB 22120 

^60 WUT"l€flDING <0-8)"iI;IF ft(271)=0 PRINT Tf®<18>" "i 

8280 IF K0 OR I>8 THEN 8260 

8300 J1=C0S( I*Ci) ; K1=-SIN( I*C1) : GOSIB 2^20 

8220 INPUT"SPEED <0-9)"iJ;IF fl<:2?l)=0 PRINT TfiB<18)" "i 

8340 IF J<0 OR J>9 THEN 8320 

8360 IF J=e RETIKN 

8380 GOSUB 20540. ft(K*8+V+192)=0 

8400 FOR 1=1 TO J:X=X+J1:V=Y+K1 

8420 QOSUe 22460:GOSUB 20120 

8440 B$="ENERGV BfiRRIER" 

8460 IF P=-l LET E=RND<E):QOTO 8628 

8480 IF B<>fi<256) OR C<>fl<257) THEN 8688 

^00 H=fl(INT(X)i«+INT(V)+192) iBts-CO-LISION" 

8520 IF UO20 THEN 8608 

8540 IF J-Dl LET 5=5-100; GOTO 8620 

8568 IF ft(fl<256)*8+fl<257)+fi(258)*64>=1006 THEN 2700 

85^ fl(276)=3:E=4^;G0T0 8668 

8608 IF H=8 THEN 8688 

8620 IF J-Dl GOSUB 3140;QOSUB 4128 ;H=0. GOTO 8660 

8640 IF H02 AND H03 AND H013 GOSUB 3148: GOSUB 4128 

8668 X=K-J1:Y=V-K1; GOSUB 22468: GOTO 8788 

8688 NEXT I 

87^ X=M<X) :V=INT<V) :fi<X*8+¥+192)=18 

8728 IF BOfl<256> OR C<>fi<257) WSiB 28508 ;a)TO 5988 

8748 GOSUB 28588: 0=1; GOSUB 22128 

8760 IF H=2 OR H=3 OR H=13 THEN 8840 

8788 IF E=4808 PRM"OOCKED" :PRINT TflB(18)» "; :GOSUB 20480:T=T+1 

:J=2:G0T0 3966 

8808 GOTO 28408 



58 



*** HRKE cues n PLflNET FOUND ♦** 

8846 IF M=2 GOSUB 2e54e:(jOSUB 26168 :R(P)=fIX(nBS(R(P»/ie)*ldf9 

8866 PRINT TflB(16)"0RBIT" PRINT TflBClS)" "i :Q0TO 26466 

8886 REM 

8966 REM STfiTUS REPORT 

8926 REM 

8946 CLS:PRINTai»(23> 

8968 PRINTK66, "STATUS REPORT "iPRlNT TfB(5) STRIN(i»<14, "-") 

8986 PRINT TflB(5)'STflRDflTE:VT 

9666 PRINTTflBO) "EICRQY : "; E 

9626 B»='GfiEEN'.IF fl(261)=2 LET B$='VELLOH' 

9646 IF fl<261)=3 LET B$="RED" 

9866 PRM TRB<5>'C0W>1TI0N: VBf 

9666 PRINT TRB<5) "QURORRNT : % R<2S6>i R(257). R(2S8) 

9166 PRINT TRB(5) ■SECTOR ■iR<2S9);R(26e) 

9128 PRINT TflB(5)'PHOT0N TORPEDOES :";fl<276) 

9146 GOTO 26386 



2046 ' iSUBROUTINES 
28B68 ' ;;:;;:: .::::::::::::::;: 



*** BCD TO P FORM *«* 

26186 IF D<8 OR D>2 LET ps-l:RETURN 

26126 IF B<6 OR B>7 OR C<6 OR C>7 L£T P=-l:RETim 

26146 P»8«e+C>6440: RETURN 

26166 ' 

*«* P TO BCD FORM *«* 

26186 l>«INT(P/64>;B»IMT((P-D*64)/8).C=P-I>*64-B^.RETURN 

26266 ' 

♦*> CONVERT fl<P) TO DflTR •*• 

26226 R(P)=R(262)«l£4+fl<263>*l£3^(264)*lE2^<265)*16«R(266) 

26246 RETURN 

26266 ' 

*** CONVERT DflTR TO fl(P) •** 

26286 R(266)=RBS(R<P>):K:1E4 
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28388 FOR IM TO 3 

28328 R<262*N)<INT(R(266)/K):A(266)^(2«>HK2S2«II>4K:K>«/U 

20348 rCXT N:RETIRN 

28368 ' 

*** ENTER KEV HRIT «*• 

28388 PRINT 

28488 IF 0=1 LET Q»8:RETURN 

28428 PRINT-HIT (ENTER) TO CONTINUE, 'i 

28448 R»»IM(EVf 

28468 IF IM(EV$Oafif(13> THEN 28468 ELSE CLS:RETIIRN 

28488 ' 

*** BCD SRVE Ttt 

28588 fl(256>»8:R(257X:R(25e>=0:fl(2S9>=X.R(268>^:liETllW 

28528 ' 

*** BCD RESTORE *** 

28548 B=fl<2S6):C^(257):D=A(25e>:)H)(2S9).V=fl(268):RETllM 

28568 ' 

*** PRINT aURORflNT OATR *** 

28588 CLS.PRINT8384.- *,'CO0RDINRTES.';BiCiD 

28688 PRINT* % ■KLINQ0NS.';R(262), 'STAR BASES: 'jR(2£3) 

28628 PRINT" ■.■STflRS:%R(264), ■PLANETS: %R(265) 

28648 RESTORE. IF R(266))6 OR R(266)<2 LET B$«*N0ICVG0TO 28688 

28668 READ B$,J:IF J-380fl(266) TICN 28668 

28688 PRINT- -. "RSTRONOHICAL FERTURE *>BI:RESTOR£ 

28788 IF R(266)<7 LET BM'NONEVQOTO 28748 

28728 READ Bt.J:IF J-380R(266) TtCN 28728 

28746 PRINT* ■< "SCIENTIFIC INTEREST *,B>:PRINT.PRINT 

28768 QOTO 28468 

28788 ' 

*** LONG RANGE SENSOR SCAN *** 

28688 PRINT864>"" 

28828 FOR C^-1 TO VHFOR i>4t-l TO Ufi:FOR B»U-1 TO Utl 

28848 QOSlfi 28188 

28866 IF ps-1 PRINT" UNOOW QUADRANT "; :(»T0 21188 

28888 IF R=8 AM) ABS(R(P»-(INT(ABS<fl(P))/i8)«18)05 T»CN R(P)»A 

BS(A<P)) 

26986 IF R=l AM) R(P)<8 PRINT" HO MTR *, .OOTD 21166 

28926 IF R=l AM) R(P)s5 TtEN 28966 

26946 IF ABS(R(P))01 QOSUB 26286:Q0T0 28988 
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28968 PRIMT ■ VOID 'i :QDTO 21188 

28988 IF R(2S6)»2 PRIHT' UmE BUCK HOLE '. :GOTO 21188 

21888 IF R<266>«3 PRINT* CU6S STAR "; :(IOTO 21188 

21828 IF fl(266)M PRINT* PULSflR "; :QOTO 21188 

21848 IF R»e fltD R<266>=5 PRINT" SPflCE NOISE *; :QOTO 21188 

21868 IF fl(266>::6 PRINT* STfIR FLEET HB 'i OOTO 21188 

21868 PRINT* K"; ft(262)i *B*i ft<26J); *S*i fl(264), "P". fl<265); * "; 

21188 NEXT BPRINT- '.t>:HEX\ DPRINT Ctl»(26). :NEXT C 

21128 PRINTS &U-L :PRINT» 28. U. PRINTS 47>IH1; 

21148 PRINT8 2S^V-1j :PRINT8 589* Vi :PRINT8 765.V«li 

21168 PRINT8 979. ",.1=191 

21188 FOR 2=15368 TO 16192 STEP 64 

21288 IF 2=16192 LET 1=142 

21228 POKE LI:POKE 2tl9.I:P0KE Zt38.I:P0KE Z+57.I 

21248 tEXTZ 

21268 FOR 2=15425 TO 15487 

21288 IF PEEK(Z)=32 POKE Z.148:PQKE Z«25&14e:PaKE Z491Z14e:P0K 

E 2^768.148 

21388 iCXT Z:G0(TO 28488 

21328 ' 

*** LOOK UP TABLE *** 

21348 I^:B$=-fl TRIBBLE* 

21368 IF R(P)=2 LET Is4:BI=*CLASS H PLfllCT" 

21388 IF R<P)=3 LH I>4:6l»*aRSS 6 PUICT* 

21488 IF R(P)=18 LET I*5:6ts>STflR SHIP' 

21428 IF R(P)19 LET I=3:BI»*CLRSS F STAR* 

21448 IF R<P>=28 LET I=2:BM*STflR 6RSE' 

21468 IF R(P»24 LET I=1:B$»'KLINB0N HRRSHIP* 

21488 RETURN 

21S88 GOSUB 21348 

21528 ON HI GOTO 21548. 21988. 21848. 21748. 2166a 21588 

21548 RETURN 

21S68 ' 

*** ENTERPRISE GRRPHIC «** 

21588 FOR Z"th7 TO U-l:SET(2.V-l>:ICa Z 

21688 FOR Z^M TO lH5:SET(Z,Vtl>:NEXT Z 

21628 FOR Z^M TO li«7:SET<Z.V>:rca 2:Sn(U-3.V):RETlRN 

21648 ' 

*M PLRNET GRAPHIC ««* 
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21tfe FOR Z>U-3 TO U*3:SET(Z.V-1>:SET(Z,V>:SET(Z.V*1):IEXT Z 

21688 ISSET<U-3.V-i):RESET(U»3>V-l>:iESET<U-I.VH>:RESET(Ut2.V«l 

) 

21788 RETURN 

21728 ' 

•M STflR QRflPHIC «*• 

21748 FOR ZMi-2 TO (M:SET(LV):ICXT Z 

21788 FOR Z«V-1 TO Vn STEP 2 

21788 SET(U-2>Z):SET((M.Z):SET(U-3.Z>:SET(U»2.Z) 

21888 ie(T Z:RETIM 

21B28 ' 

•M STRRBRSE ORflPHIC •M 

21Mt FOR Z^hS TO U*5:SET(LV»1):IE)CT Z 

2iaSi SET(U. V) :SET<U-2* V-i> :SET(U-1* M) :SET(U V-D iREIUM 



«w HJNBOi QRRPHIC M* 

21988 FOR 2m-9 TO U*9:SET(2.V):KXr Z 

21998 SET<l>-9»V-D:SET(IM,V-i):SEr(UH.V-l).SET(IH&V-i> 

21M8 SET(U-LV*i>:SET(U.V^:SET(IHl,V*D:REnM 



M* SECTCR BUIU)8t ••• 

21918 MB»<8>-1:0«»(8>-1:M 

2aM FOR IM-1 TO B*1:F0R V<-1 TO CH 

220 IFiKI0RU>7aRV<lflRV>7TICH 228S8 

2aMi h«iU«V*192:IF R(P>08 TICN 21968 

22868 KXT V:IEXT U 

QOSIS 2M28:MPMI:iCniN 



•M SHORT RflMEE SEIGOR SCm *M 

22128 CLS:IF B(271>06 IXT MiQOlO 3886 

22146 W>II8CVI.eoaB 28546:aOSUe 2tt88:6<P>>«S<MP» 

221C6 PRINT:F« 04 TO 7:F0R Bi« TO 7 

22186 P>«ie*€«192:PRINT- - % 

222N IF R(P)06 LH (M«6»7.V>>C44:Q0SU6 21988 

22228 KXT B:IF IMSVfOQIt>(13> TIO lEXT C:QOaB 22328 ELSE 22 

286 

22248 FRINT6 €98. 'SHORT RflNOE SB60R SCm OF OUnRfMT'i 

222(6 PRINT R(2K)iR<257)iR(29e>:PRINT TW<18)* *; :00T0 26468 

22286 Q^iOS: PRINT TfB(18> "> :FQR 06 TO 6:IGa C:RETU8I 



22388 ' 

*** VIEWING SCREEN FRflHE *m> 

22328 PRINT9 eiSTRIN(i$<63,''=-); .PRINT8 576.STRING«<63.''=")i 

22348 RETURN 

22368 ' 

•♦* HflIT LOOP *** 

22388 9$=H¥Ef$:fQk N=8 TO 788 

22488 IF Ili(EVfOCHR$(12> THEN NEXT N. RETURN 

22428 CLSFOR N=8 TO 8.rCXT NRETURN 

22448 ' 

*** BCD nODER *** 

22468 X=«*«+X ; B=INTCX/8) ; X=X-B*« : V=C«8*Y : C=INT(V/^) V=V-C#8 

22488 RETURN 

22S88 ' 

*** I'ER *** 

22S28 IF flBS(Ji»feS(Kl> LET ia=Kl/flBS(Jl):Jl=Jl/ffiS<Jl>.GOTO 22 

568 

22548 Jl=Jl/flBS(Kl>.Kl=4(l/ieS(Kl) 

22568 Jl=FIX(Jl*1888t. S«SGN(Jl»/188e 

22588 Kl^IX(Kl*ie88f. 5*SGN<K1»/1888. RETURN 

22688 ' 

•« VOU LOST *w 

22628 05 

22648 Bfs-LflRQE BLACK HOLEMF A<266>»3 LET BM'CLASS STAR' 

22668 IF fl(266)M BI^'PULSfR* 

22688 Bts-FFTER FLYING INTO fl '*6$ 

22788 PRINT8 328, "ON STfiRDflTE'iSTR$(T),% •;B»*",' 

22728 PRINT*THE EKTERPRISE I CREW HERE LOST TO SPACE. " 

22748 PRINT :PRINT:E)D 

22768 CLS:B$<'flFTER DEPLETING ITS EtCRGV SUPPLVVOOTO 22788 

22788 CLS:BI»'-WILE DOING BATTLE AGAINST TIC KLINQONSVQOTO 2278 

8 

22888 ' 

«*« 00 TO JAIL FOOL *** 

2282B CLS 

22848 PRINT8 44& 'DESTRUCTION OF A ■;8$; ' IS QROUMtf FOR COURT-N 

ARTIflL' 

22868 PRINT :PRINT'VOU ARE RaiEVED OF VOUR COMM). ' 

22888 PRINT :PRINT:EM> 
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REH 
38828 REH MTR 

38848REH 



38868 DRTR ■STRTUS'. 8. ■DflHRGE aMTROL'.L "SCIENCE CIHiUTBr,2 

38888 DATA "SHIP'S CaN>UTERM. 'LX SENSORS'. 4. 'SR SENSORS'.S 

38188 DffTR 'IMUSE ENGUCS'.&'HRRP DRIVE*>7*"I>HRSERS".8 

38128 MTA ■PHOTON TORPEDOES". 9>"iURTMa"REPRIR".U 

38148 OflTR *KLINQON WRSHIPS*. SB. 'STRR BRSES".S1 

38168 MTR "ORSS F STARS". S2. 'PLflCTS". S3 

38188 DflTR "IIEMUORED flRER5".54 

38288 DATR "GREEN". 2L "VEUJM ALERT". 22. "RED flL£RT".Z3 

38228 DRTR "ttiCK HOLE". 32. "0 STflR".33."PULSRR".34 

38248 DRTR "SPRCE NOISE". 35. "STRR FLEET HB".3&"G PUVETM? 

38268 DflTR "UGPLORED H PUICT".38."E»>U»ED H PLilET".39 

38288 DRTR "PROMOTED". 42S. "DECORHTED". 3S8. "RERSSIOMED". 298 

38388 DATR "DENOTED". 198. "RESIOED". -1. "EXECUTED". - 

38328 ' 

«M KLINGONS *«* 

38348 DATR-E". 999. 3811L3111L3818L2B12L2BeBL 28881 

38368 DRTR 1888L 18111. 1821LliB32Llfl22L -99 

38388 ' 

••• CLASS H PLilCTS ••• 

38488 DRTR 1118. Ua 118. 118. 118 

38428 ' 

*M STRRBflSES •«* 

38448 DRTR ^^^^.^^^^.^o^^.^^•i^.^^'>^ 

38468 ' 



38488 DRTR 3.3.2.2 



/ 



•♦♦ OTWR STlfF *•• 

38828 DATR 12L12L21L211.311.311.32L32L221.221 

38948 DATR 12L12L211.21L31L311.32L32L221.22L8 

48128 REN «M LORD M SRfff ROUTIIC ««* 
48848 REN «m DISK VERSION •** 

48888 CLSiFRINIf 648.". .LIICIM>UT"EN1ER FILESPEC •> *iAI 
48188 IF LEN(R»>8 TtEN 2868 
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48128 LINEINPUT-(L>0flO OR (S)RVE R GflTC? 'iB* 

48148 IF LEN<B»)=8 TICN 2868 ELSE BI=LEFT$(B», 1) 

48168 IF B$0"L" AND B$0"S" GOTO 2868 

48188 ON ERROR QOTO 48486: IF BI=V THEN 48388 

48288 QPEN'OM,R$ 

48228 PRINTILLKiLS 

48248 FOR N=8 TO 279 STEP 18 

48268 PRINTM, A(N>j R((H1). R(Mi2>; R<rH3)i R(Nt4>i R(»K5); R(N46)i R(N 

♦?)iR<M+8)ifl<M*9) 

48288 tCXT N:CLOSE:GGTO 2868 

48388 OPEN- 1 '.LR* 

48228 INPUTtLE,HLS 

48348 FOR »=8 TO 279 STEP 18 

48368 irPUTIL R(N), R(Ntl)> R(N^2). R<Nt3>, fl(NM>, R(Nt5)i R(N«6>. R<N 

♦7),fl(M*8),fl(N+9) 

48388 (CXT N:aOSE:QOTO 2868 

48488 CID*E*: CLOSE :QOSUB 22388 RESUME 2868 

4S88B CLS.IFPEEK(16396)0281T}€N48ee8 

4S828 REM «** CLORD AND CSAVE ROUTINE *** 

4S848 REH *** TAPE VERSION *** 

45858 irfUT'<CL>ORO OR <CS)RVE R CMC ->B* 

45868 IFB*='CL-THEN4S2ee 

45878 IFBlO-CS*T)CN2eee 

45188 PRINT-PREPfRE RECORDER - T(CN <EHTER> 

45U8 IFirKEVfOO«t(13>T)CN45118 

45128 PRINT-SAVING GffC . . VPRINTt-LLIlLS 

45138 F0RNS8TO279STEP38 

45148 PRINTI-L R(N>< R(N^l), R(N+2>* R<N^3>. R(NM)> R(N»5>> R(N««>> R< 

N^7>> R<N^8>. R(N«9). R<N+18)> R(N^U>. HiHH2). MHH2). R(N«14), R(Mfl 

5), R<N«16). R(N^17). R(N+18)/ R(N«19). R<Mt2e). R<N*21>> R(N^22>. R(N^2 

3>i R<N+24)< R(Nt25). R(Ni26>. R<N«27)> R(Ni28)» A<Nf29) 

45158 ICXT: GOTO 2888 

45268 PRINT-PREPflRE CASSETTE. .. * IM>UTI-1. & H. L S 

45216 F0RNS6TO279STEP38 

45228 IW>UTI-L R(N)i R(Nf 1)> R(N«2). R(Mt3>. R(N«4>> A(IK5>, A(N«€>. A( 

N+7), R(N^8)> R(N^9>, R(Niie>, R(N«11>>R(N^12)> R(N^13)> R(Ntl4>. R(N^1 

5). R(N+16>,fl<N*17> ,fl(N+l8) . R(N+19).R(N*2e>, A<M»2l), A(N»22>. R(N*2 

3>, R(Ni24)< R(Ni25)< R(N+26)' R(N^27>.R(Nt28>. A(N»29) 

45238 reCT: GOTO 2888 





by Douglas Carlston 



Give up your shoot«em- 
up games and move up to 
grand strategy! Fight your 
wars as a general, not a 

mere pilot! ; 



Galactio Empire — As commander of Galactica's Imperial 
Forces, you must conquer and hold the inhabited worlds of the 
galactic system. Deploy armies, raise taxes and conscript 
soldiers, gather intelligence, manage resources. 

Galactic Trader — You have succeeded in uniting the 
universe. Now you are an ex-soldier who must scramble for a 
living as an intergalactic tramp freighter. Outwit the locals at 
bartering, struggle with the fuel cartel, and outmaneuver the 
big trading monopolies as you seek your fortune. 

Galactic Revolution — The emperor is a bungler, and is 
becoming upopular. Your popularity is a threat, and he is 
seeking to kill you. Turnabout is fair play, so you start a 
revolution to unseat him. Will you succeed? 

Each game... 16K Level II Cassette $14.95 
Special! — All three on Disk (32K) $39.95 



6 SouthStmet, Box 68, Milford, NH 03055 603-673-5144 
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TRS-80 Opera Theatre 



The finest musical program we have seen for the TRS-80. It deserves a 
quality amplifier. Amazing sound! Richard Taylor is an opera singer witha 
magnificent ear! 
Selections: 

• WILLIAM TELL OVERTURE • MUSETTA'S WALTZ 

• SEMPRE LIBERA • QUEEN OF THE NIGHT 

• LA DONNA E' MOBILE 



Challenge 



"Didn't want to stop ~ nearly died laugiilng" • Scott Adams 

Word guessing game with sound effects, one jpr two players. Truly 
challenging and competitive. 

Separately on cassette $9.95 (each prosram) 

Both programs on disk $19.95 (two programs) 



■ DEViDE 
!Z FflCTORIfL 



■ IHIHIHIHIHII 

APL 

IS HERE! 



gninininininininininimnmin 

- mm. m m m h^ ■ brhch caienrie 
ciaiNG mm /\ I ■ I mm mm 
mm CEH. GtcooE # m ^^ I m om 

im wm Em mam W^ | aoiR or dok 

SR UP WBm g % I ^^m INDEX GEN imm 

m. 
msmn 

_ LESS 

" mamUL mm APL so By Phelps Gates (intRFRGDUCT 

■ UKL CIRUIL* APL-The powerful, mathematlcaHy fitClHtlM. 
~ elegant language of the IBM 5110, omav 
■■iiKvnc MMBiuxA has come to the TRS-80. Deluxe ™'"'' 
.iN^u- imurm version, for 32K Disk systems, in- vm 
ILCK] tfK ItKltR M eludes self teaching instructional 

^m ND1 NOT EliUfl OR material and the bool< APL • An In- NtaA]£ 

■ quote SIIH) mm |MVEL*«™<=*'™'^PP™«'«'^^o^O"'y 5^49.95 fiUfiO 

-fiSm mm ^^^^J'f'.lTxaoe version with ^"^ 

■ a^TEH mm m Sell' feaUs'V Jugs -^^ SIGN 

THiBinininiBinininininiHiHini 
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lf\IPUT 



A COLUMN OF YOUR LEHERS 



Dear Mr. Bfank: 

I have thoroughly enjoyed 
"SONIG TORPEDOES". Mr. Case 
is to be commended for a great 
idea there. If f may, I would like to 
r e c o m m e n d a coup I e o f 
Improvements. 

The following lines will allow the 
last torpedo to hit or miss the 
target before terminating the 
game: 

365 IF Q-<1 AND S-c1 THEN 4C» 
370 IF Q = 38S = S-1: GOSUB220 

The following changes add an 
interesting twist to the game— 
they allow you to steer the torpedo 
by saying "DIT" to steer left, and 



"DAH" to steer right (actually they 
could use any short and long 
sound) 

Add to 130: Z=62 
Add to 180: D=0:X=62 

181 IFQ>»360RINP(265)'iC5i^265 

THEN190 

182 F0RK=1T04:PRINTGHR$ 

(28):IFINP(255)=265THEN 
C=C+1 

183 NEXT 

184 IFC»'2THEND=D+2:ELSED= 

D-2 

185 C=0 

Add to 360 after RESET(X,Q): 
X=Z+D: 

Thank you, 
AlHaasdAta 




(More Magic from Leo Christopherson) 



This fast paced real time action game is a contest be- 
tween a Bee operated by the player and a Spider operated 
by the computer. The Bee tries to sting the Spider in a 
vulnerable spot while the Spider tries to jump up and 
swallow the Bee. Fast paced animation, sound, and real 
time action. Machine language subroutines, but loads as 
Level II for easy operation. $14,95 

TheSotiw&areEMchanae 

6SouthStrt^lBox6dMitfotd.NH03055 603-673'5144 
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DAY OF 
THE WEEK 

by George Blank 

There are many occasions when a day of the week program would be 
useful. For example, if you know the day of the week for the first day of a 
month, it is easy to print a calendar. In business programs, it dresses up 
output to specify the day. 

This routine was written to give basic programmers a routine that they 
could use without needing to give credit or royalties in their own programs. 

The Gregorian calendar is used, so Julian dates are incorrect. The 
Gregorian calendar was adopted on October 15, 1582 in the Roman 
Catholic countries, and on September 14, 1752 in the British Empire. The 
day before October 15, 1582 in Spain was October 5, and the day before 
September 14, 1 752 in England was Septembers, with a droppingof ten and 
eleven days respectively, Germany made the transition in 1700, Sweden in 
1753, and Russia, ever a backward nation, waited until 1918. 



10 REH * PUBLIC Wmm SUBROUTlffi BV SEO^ BLflNK * 

100 aS:PRINT:PRIHT»DflV OF HEEK FOR GREeORIflN CflLENDflR" PRINT 

110 INFllFmMTH (1-12) "iH 

120 IW>UT"I»V <i-31)";D 

138 INPUT'StftR'iV 

140 IF V<1^3 THEN PRINT" IWflLID DRTE (PRIOR TO fflKfTION OF (»EG 

ORIfiN CflENDflR)- ELSE IF V<1753 PRINT" («Ea)RlflNGffl.EM^ NOT VE 

T ADOPTED IN BRITAIN) " 

150 GOSUB 32008 

160 PRINT :eOTO110 

31999 IKH ***** OflV OF «EK SIB-ROUTINE ******* 

* INPirT: H=«OHTH D=OflV V=VEflR OUTPUT: D$ * 

* flLGORITW - GRUENBERGER, J«TRW, fM) BEITZ * 

* (REF; C0MW.ITERM3RLD FEB. 11, 19^, Pftffi 38) * 
32888 D$="SUNH0NTUEHEDTHUFRISflT-:HM"JfiNFE8MflRflPRHRVJUNJUL«J6SEP 
OCTNOVDEC" :H$=«1D!:(W, (H-l)*3+L 3) : IFM05THE»»=«$+". » 

32810 H*=H*+STR$(0)+", "+STR$(V):H=H-2:IFH<1THENH=«+12:V=V-1 

32828 VX=V-INT(y/188)*100:H5£=INT(2. 6*11-. 19)+D+'«+INT(V/48e)+INT( 

V2/4)-IHT(V/4080)-2*INT(V/188) 

32838 KMK-immj?)*?Mmf)$m. «X*3+L 3)*" - "+H* 

32848 PRI«TD$:I«TURN 
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A softside service for the personal if&rnputer market 
Quite often we receive submissions that are not commercially 
marketable. For example, someone may have a useful program for rabbit 
breeding, but we do not have enough demand for it to justify the cost of 
reviewing, advertising, and publishing it. A medium is needed for the 
exchange of information on specialized programs. 

Therefore we will maintain a catalog of sources for this software and 
publish it quarterly at a nominal.cost . ff you would like to list your software 
(FREE!), send this form to: 

P.O. Box 68 
Milford, NH 03055 

This is a medium for original authors only. Name and address of the 
programmer must appear in ad. We reserve the right to refuse any ad, and 
will publish only ads for non commercial practical applications. Soft Side 
does not review or warranty these programs in any way. 



SUBMISSION FORM: 

PLEASE PUBUSH THE FOLLOWING AD IN S.S.S.S.: 



NAME. 



ADDRESS 

I CERTIFY THAT I AM THE AUTHOR OF THE ABOVE PROGRAM. 



7& 



4SrGNATURE) 




..... \ :: v,»*v , 




What do you do wNn you finish reading 
TRS-80 Assembly Language Programming 
by BJH Barden ... 

and you M^ant to do some serious machine 
language or assembly language programming? 

Buy the 



t Guide & Cookbook 



Utility Routines • Stack Operations • 
Searches and Sorts • Floating Point 
Routines • Z-80 Instruction Set 

The index lists over 100 assembly language 
routines and subroutines that you can use! 
$14.95 plus $1.00 shipping 



MORE BOOKS FROM 



New from 
SCELBI W3\ 
Publications 




6SouthStmet,Box68,MilfQrd,NH03055 603-673-5144 



TRS-80 DISK AND 
OTHER MYSTERIES 

by Harvard C. Pennington 
If you are serious enough about disk pro- 
gramming to own RSM-2D or NEWDOS + , 
then you ought to purchase this book. It 
explains the organization and features of 
TRS-DOS 2.0, 2.1, 2.2, NEWDOS, and 
VTOS, tells you how to use Superzap, 
RSM-2D, Monitor 3, Debug, DIrcheck, and 
LMOffset, explains the directory track on 
the disk, file structures (including Electric 
Pencil files), and even gives detailed pro- 
cedures for recovery of lost data. WhJIe 
this book is not recommended for the in- 
experienced user, It is essential for the 
Serious disk programmer. The book is ex- 
pensive, inSVz by 11 format with typewrit- 
ten Instead of typeset printing, and only 
130 pages, yet the information is worth 
the price. $22.50 

plus $1.00 shipping and handling. 

LITTLE BOOK OF 
BASIC STYLE 

John M. Nevison 

Ideal reference for BASIC programmer, 

Junior high to research scientist. Indexed, 

illustrated, 151 pages. 

$5.9S plus $1.00 shipping and handling 



TRS-80 ASSEMBLY 

LANGUAGE 

PROGRAMMING 

William Barden, Jr. 

Covers Z-86, an Introduction to Assembly 
Language, the Radio Shack Shack Editor/ 
Assembler and T-Bug, and del)ugging 
methods; also explains how to move 
data, the use of arithmetic, compare, 
logic, and bit operations, shifts, strings, 
tables, Input and output, and 12 common- 
ly used subroutines. Well Indexed and il- 
lustrated. 
$3.95 plus $1.00 shipping and handling 



TRS-80 INTERFACING 

by Jonathan A. Titus. 
This valuable reference t)ook for the hard- 
ware enthusiast with an understanding of 
Assembly language programming in- 
cludes the schematic, printed circuit 
board artwork, and Instructions for 
building a TRS-80 breadboard, plus 18 ex- 
periments to give a solid understanding 
of Interfacing to the TRS-80. $8 J5 

plus $1.00 for shipping and handling 
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ENCOUNTER IN THE By Barry L. Ad.m. 

NEAR THOLIAN SECTOR 

You are the Commander of the Federation Starship Enterprise. Open 
hostilities exist between the Federation of Planets and the Romulan- 
Klingon Alliance. Recently. Klingon battle cruisers, equipped with 
Romulan weaponry, have been conducting sorties across the Neutral Zone 
against Federation outpost colonies along the Tholian and Gothosian 
Sectors. As a result of these open attacks by Klingon raiding parties, 
outposts 7 and 8 have been destroyed and Federation starships Valiant and 
Constellation have been lost. 

Your mission is to immediately disembark from Starbase-12 and make for 
the outpost asteroids where you are to patrol the "Near Tholian" Sector and 
engage and destroy all Klingon war vessels operating in that area. Failure to 
successfully complete this mission will all but guarantee the loss of the 
Federation. Good luck. 
INSTRUCTIONS: 

Klingon starships are destroyed by depleting their energy. Unlike 
Federation Starships. such as the Enterprise, which have defined energy 
shields composed of several energy shells. Klingon vessels have undefined 
shields; the composition and configuration of which are unknown. 

Klingon ships, like the Enterprise are propelled by impulse engines for 
sublight travel and Warp Drive for Star Travel. Whereas Star Travel is 
identical, the Klingon ships are far more maneurverable and faster at 
sublight speeds. This coupled with more powerful weapons, makes the 
Klingon ships an adversary not to be taken lightly. 
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All weapons are energy weapons. Phasers are much more effective at 
ranges less than 1 E+ 06 meters and less due to the plasma property known 
as "reflectivity". Reflectivity is a phenomena of additive reflection which 
results in an increased yield in phaser power. In general terms, when two 
sources of energy are within a given distance and plasma is directed from 
one source to the other a potention difference between the plasma bundle 
and the sourceto which it is traveling exists. The difference is additive to the 
energy level of the plasma bundle. The closer the energy sources — the 
higher the energy yield. The 500 energy units (EU) required to fire the 
Enterprise's forward phasers may actually hit the Kllngon at an EU level of 
over 1000. • 

In addition to forward and rear phasers, the Enterprise Is equipped with 
Photon Torpedoes which are definitive energy bundles. Kllngon vessels are 
equipped with a plasma weapon which appears to have similar 
characteristics to the photon torpedoes. Unlike plasma as it Is configured 
for Phaser use the photon bundles and Kllngon plasma bundles exhibit 
degenerative reflectisity. Under these conditionsi unstable harmonics of 
the energy levels are produced which can reflect back to the source. 
However, the reflection is 180 degrees out of phase and is therefore 
degenerative. This phenomena usually only occurs at ranges less than 5E + 
06. At ranges of 5E + 06 to 6.8E + 06 the energy levels of the photon 
torpedoes or the plasma weapon remains constant. Beyond 6.8E + 06 
meters the energy bundles decay quickly. 

The Enterprise carries a larger crew compliment than does the Kllngon 
ships (43 command officers and 387 ensign grade crew members). Kllngon 
cruisers carry routinely less than 100 crew members and 18 command 
officers. Because of the larger crew, the Enterprise can make major repairs 
while in route, while Kljngon vessels must be tended. Therefore under 
battle conditions Kllngons can not make repairs. 

STAR TREK 

Encounter in the Near Tholian Sector 

THE STAR SHIP ENTERPRISE 

y^^^ ^^"N. FWD Phasers 



Impulse Drive | LXj J*""*^ i 

^^\,^ \ 1 I I I /_ Warp Drive 

^'•^'v^ 1 I I J I / Rear Phasers 
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COMMANDS 

1 .Forward Ptiasers — consist of twin banks. Cost 500 EU to fire. At range of 
1x10^ (1 E+06) Destructive Force (Df) is equal to 500 EU. At ranges greater 
than 1E+07 the Df decays linearly. At ranges less than 1E+06 Df linearly 
increases due to additive reflectivity. Forward banks can only be fired at 
targets lying between and 90 degrees in azimuth. 

2. Rear Phasers — consist of a single bank. Cost 250 EU to fire. Can only be 
fired at targets lying between 90-plus and 180 degrees in azimuth. Function 
like Fwd banks regarding destructive force. 

3. Phdton Torpedoes — consist of three tubes mounted forward. Cost 1000 
EU to fire. Energy source is plasma-magtron. Reflectivity Is detrimentally 
reflective at ranges less than 5x10^ (5E+06). The amount of reflected plasma 
energy Is random. 




5E+06 



7E+06 
Range to target in meters 



Can only be fired at targets lying between and 90 degrees in azimuth. 
THE STAR SHIP ENTERPRISE 



4. Close to attack — requires Impulse engines. Reduces the azimuth to less 
than 90 degrees and cuts the range in half. Cost 150 EU to operate. 

5. Veer off — requires Warp drive and/or impulse engines. Maximum speed 
is obtained when both engine systems are operational. The minimum speed 
is obtained when only the Impulse engines are functional. Cost 350 EU to 
operate. 

6. All Stop — a stand-by position. Life support systems only operational. 
Cost 10 EU. Used to conserve energy. 

7. Transfer energy to Shields — transfers energy from the reserve banks to 
the ship's energy shields. Energy transfers are non-reversible. Cost 10 EU 
to operate. Shields hold a maxaimum of 5000 EU. 

8. Recharge Dillthium Crystals — allows the majority of the ship's systems 
to be temporarily diverted to recharge the central energy source — the 
dilithium crystals. Cost nothing. However, the ship's energy shields are 
temporarily reduced to quarter strength during the process. 
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9. Repair Systems — tmmedrafely dispatches Spock and Scotty to the 
damaged system specified where repairs are effected at a cost of 625 EU. 
The system to be repaired must be specified by entering the Command 
Number associated with the system. Command Code 5 is used to specify 
the Warp drive. 



Klingon Battle Cruiser 



FWD Phaser Banks 
180 deg. 



Warp Driv»' 



Impulse Drive 




Plasma Weapon 
110 deg. 



Rear Phaser Banks 
180 deg. 



^COMPLEMENT 
Phasers — twin banks mounted forward and aft, proton based. 725 EU at 
1E+06-, linear decay at 1E+06-. Additive reflective at 1E+06-. 180 degree 
azimuth of fire. 

Plasma Weapon — one mounted forward, 110 Degree azimuth of fire. 
Energy source — plasma (origin unknown). At ranges less than 5E+06 
regenerative reflectivity. 




5E+06 6.SE+O0 

ImpuKse Drive — unknown energy source. Sub light speeds only — Are 
considerably faster than Federation star ships. 

Warp Drive — Dtlithlum-based anti-matter type similar to that used by 
Federation vessels. 
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REH 


STflRTREK 


IREH 


ENCOUNTER IN TtC 


2 REH 


ICflR TM.OIfWi SECTOR 


■: REH 


VERSION 2 e 


4 REH 




SREH 


COPYRIGHT 1979 


6REH 




7REH 


BRRRV L flMHS 


SREH 


GREENVILLE . NC 278^4 
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9 REH MRIN PROGRflH LOOP LINES 28-565: GRfiPHICS ROUTINES BLOCK 
€» « LINES 1458,1779: INTRODUCTION, SETUP AND DflTft 18,1588 - 

18 aEflR6e8:MH fl<16):DEFINTB-F,H-K,N-Q,S.U-Z;RflND0M:GOTO1588 

14 REH DEFLECTOR SHIELDS 

15 PRINT: INPUT"SPECIFV flM'T OF ENER6V TO TRflNSFER TO SHIELDS"; H: 
IF fl(6)4H>5*U,15 aSE IF (HK8 PRINT"ENGINEERIMG REPORTS INSUFFI 
CENT ENERQV C';Q;">-:GGT015:ELSE G=6-H:fl<6>=fl<6>+H;(M8:RETURN 

19 REN SHIP SV5TEHS SETUP 

28 S=INT(RM><flAJ»:»=S:fr«l>(fWJ)+fl*S:FOR J=1T05 ft<J)=l:NEXT:ft(6 

)aRMD<U«5) 

25 K=8:FORJ=18T015:fl<J>=l:NEXT.fl<16)=RND<U+fi>+fl:GOT048 

38 G0SJB988:X=X-1:IF ft(6)<8 OR (K80R X<=8. X=S-X:fi=l :(»T045.ELS 

E25 

35 PRI»fTt289, "OUT 0F";Si"HRVE BEEN DESTR0VED":PR1NT8529,'THE FED 

ERflTION HflS BEEN "; :IF X=S PRINT»SflVED»:G0T0588 ELSE PRINT-LOST" 

.PRIHTT«<28)i "IDIOT!":GOT0518 

48 R=L*18*RND(fl/U):B=INT(188««ND(ft/L/18»:F=8:I=8:CLS:G0SUM58 F 

OR C=lT0i8:PRINT8478, "RED ft L E R T":G0SUB928:aS:aKUB938NE 

XTC 

45 K7=K7+1:PRINT8148, "SENSORS REPORT "iXiB$i"HflR CRUISERS" IF fl= 

1, 25 ELSE PRINT8216, "flPPROfiCHING" 

58 PRINT;PRINT»Rflr«E"; Ri "l€TERS"i TflB<42)i "flZIWTH"; B*2; "DEG" : IF? 

>8 fl<6)=Z-«:Z=8:H=flBS<H) 

55 IF ft<6><1426 PRlNT:PRINnftB<21>; "DflNGER SHIELDS LOH" 

68 PRINT :PRINT"BftNKS"jfcTflB<24)i "SHIELDS", ft<6)iTflB<46>;B*ifl<16): 

PRINT :PRINnflB<26); "COMHflND" 

78 C*=INKEV$:IFC$=" " OR Vfll.';C*>=8, 78 ELSE C=VflL(C$):aS:PRIMTf» 

j:IF C<4 PRINT"FIRE ": 

75 ON C QOSUB 13e,135,158,178,175,185,15,19e,195:G0T02e5 

78 REH 

79 REH KLINGONS LOGIC ROUTINE 

81 INWll>4fl<12):V«fl(i4)*fl<15):PRIMTMi IF S>1 PRIMT"i"jK7i 
85 IF 6C>mi6),98 ELSE IF 8(16X499 OR ( H>« M) 8(13)^ AND ¥^8 
),378 

98 HHM>(R>4U:IF R><«H.*18.ii8 
95 IF MOM fl» R)L«5 AND BiCilL128 
118 IF lOe AND R<>H/4H^ 115 ELSE IF (08.118 
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105 IF fl<16)>U ftND fi<0)*l,125 aSE IF V>0 C=5;G0SUB175: 0010285: 

ELSE C«6:Q0T075 

118 IF fl(i4»8 CM :G0SUBi78:B=8: 0=158 :G0T0285:ELff 185 

115 IF H>8 PRINT-FIRIMG PHflSER": 0=788 :GOSUB 148:0=588:0=1:001028 

5:aSE95 

120 IF fl<13)=8 OR ft<16><U,188 

125 PRINFFIRING PLflSMfl HEflPON" :C=3:B=55: 0=1425 :G0SUB168 0=0: GOT 

0285 

138 PRINT"FORHflRD PHRSERS":IF fl<l)=8,180 ELSE 0=788: IF B>98,155 

ELSE 148 

135 PRINT"REflR PHflSERS":IF fl(2)=8,188 ELSE 0=358: IF B<9e,155 

148 IF R>L,H=e*(L/1?): RETURN 

145 H=e+8*(1-R/L): RETURN 

158 PRINT-PHOTON TORPEDO" IF fl(3>=8,188 ELSE GOSUB 968:Q=U:IF B< 

=9ai68 

155H=8:RETUI»I 

168 IF R>5^. fMD R<=6. 8*L,H=e: RETURN :aSE IF R>6. 8*L,H=Q* 8*5*L/ 

R:RETURN:aSE IF 1=8 aS FOR Cl=lT018PRINTW84."DflNGER REFLECTI 

VE ENERGY ;G05UB938:aS:G0SUe948:NEKTCl 

165 F=1:H=RND<O)+280:PRINT"RELECTION OftTfl'i :G0T0225 

178 IF J=8 »© ft(4)=8 PRINTMHPULSE"; :G0T0188:aSE PRIHT"aOSl«i 

IN" :R=R/2:B=0:Q=150:RETURN 

175 IF J=0 AND «(4>=8 AND ft<5)=0 PRINT'ENGINE'j :G0T018e:aSE PRl 

NT'STEERIHG flHflV:R=**(l+fl<5+I)+. 85*«<4+I»:e=358:RETUW 

188 PRINT* SVSTEH INOPERATIVE* :<»T058 

185 PRINT'STflNDING BV": 8=18: RETURN 

198 PRINT"REflCTIVftTING DILITHIUH CRVSTflLS»:e=-INT(1575*«180E3-6 

>/188E3) ): Z=fl<6) : ft<6>=Z/4 : RETURN 

135 PRINT :PRINT»SPECIFV SVSTEH TO BE REPAIRED" :H$=" 

288 H*=INKEV$:IF H*="",288 aSE fl<VfiL(HI))=l: 0=658: RETURN 

283 REH 

284 REH AHACK ASSESSMENT 

285 IF 1=8 0=6-0: IF 6<8, 385 aSE 215 

210 A<16)=A<16)-0 : IFA<16)<8, 385aSEIFC<3ANDfl(6)-H<=8ANDA<6)<688, 
IO=l:A<6>=-l:J=8:PRINT"HE ARE RECEIVING A TRANSHISSION FROM THE 
»;B*i "COmAHDER" :PRIHT"STANDBV" :G0SUB9e8:G0SUB1938:CLS:PRINT8276 
,Ui :G0SUB968:G0SUB64e:G0SUB938:G0T0398:aSE215 
215 IF C^ PRWCONTflCT "; :IF R>lE8PPir«i"LO5T":X=X+l:GOTO30:ELS 
£ PRM'HOr LOST" 
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228 IF 1=8 J=ieELSE J=0 

225 IF H>fl*2 H=fl*2 

230 D=RND(H);IFD3H=0:C»TO4e0 :EL«PRINTTflB<21)i : IFJ=0PRINT"Of»ff« 

E aPORT":PRINTfl*; :Ci0T0225:ELSEPRINT"SENS0RS REPORT" :PRINTB$; IF 

fl(i6)-H:>0,225 ELSEIFR<6E5,224ELSEIFK7<SflM)(fl(ll)=0fll««(l2)=0»»fi 

(13)=0)ORfi(16)G49, 233ELSE235 

2B PRINT»ST«M)8V - WE'RE ISCEIVIN6 ft VISUflL SI»R FROM ft "iBi; 

"VESSEL" : GOSUB%0 :K5=1 (»SUB960 : (MSlfil?70 

224 PRINT?240, Kl$ : GOSUB960 : G0SllB«54e ; 6OSI«920 : (»TO290 

235 PRINT'HIT BV"; Hi "UNITS OF DESTRUCTIVE EfCRGV" 

240 fl(6+J>=fl<6+J)-H:IF ft(6+J)<0,385 ELSE IF IK300 PRIMT'MINOR W) 

MPfGE - SHIELDS f«LDING":GOTO400:a.SE IFD<900 OR ft<3+J)=0 OR <fi(l 

+J)=0 m) fl(2+J)=0),260 ELSE FOR Cl=lTO3:ft(Cl+J)=0:MEXT:PRINT"ME 

flPONS' SYSTEM "; 

245 IF ft(5+J)=i OR ft(4+J)=l F1?INT "»© ";ELSE365 

260 IF D<:800 OR fl<5+J)=0,280 ELSE ft(5+J)=0:PRINT"MflRP DRIVE"; :G0 

T0365 

280 IF D<700,3«8 ELSE IF fi(3+J>=l ft<3+J)=0:IF J=0 PRINT"PH0T0N T 

ORPEDO TUBES"; ;(»T0 ^:ELSE PRINT"PLfiSm ICflPCW"; G0T0J65 

290 IFRNDa)=1.320 

280 IF D<500 OR fl<4+J>=0,320 ELSE ft(4+J)=0: PRINT" IMRJLSE DRIVE"; 

:KIT03© 

220 IF D>299 ftM) fl(l+J)=lft(l+J)=0:PRINT"FC«WflRD"; :6OTO260:ELSE 

IF ft<2+J)=l ft<2+J)=0:PRINT"R£ffl? "; :6OTO260:ELSE B2=B*2:IF B2<90 

PRlNT"FORHflRD';ELSE IF B2<im PRINT"STflRBa«D";ELSE IF B2<270 PR 

INT»flFT";aSE PRINT"PORT»; 

230 PRINT" SHIELDS ";:IF fl(€+J><400 PRINT "DEPLETED" ELSE IF ft(6+ 

JK2880 PRINT" DISRUPTED" ELSE IF ft<6+J)G000 PRINT" BUCKLING" E 

LSE PR1NT"L0SIMG PHftSE" 

340 D=0: GOTO 400 

360 PRINT" WftSERS"; 

265 PRINT" D»«GED":GOTO400 

370 QOSUB900:PR1NTM64, "DflNGER "; B*; " SELF-DESTRUCTED" :6O9JB9i0: 

GO5UBi450:Q=fl<16>:GOSUB140:K=l:IF ft(6>-H<0 X=X-1 

280 C=1:J=0:G0TO225 

385GOSUe910 

390 G0SUB1499:CLS:PRINTW68," "J :IF J=0 PRMWi :X=X+l:aSE PRIK 

TW; 

395 PRIKT-OESTROVED":6(rrO30 
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397 REH 

398 REH KLINGON RflNGE « POSITION ROUTINE 

4ee IF F=l F=0:QOSUB9ie:IF MB H=1425: RETURN: ELSE H=U;RETURN 
485 Tl=.5»<fl(4)+fl<14)+.85*<fl<5)+fl<15»):IF K=l QOSUB98e:GOTO30:E 
LSE R=fiBS<R+Tl*<RND(e)- 5)«L):B=lNT<flBS(B-150+2e*<RND(8)»):IF B 
>188 B=««S<360-B) 

416 IF J=0 I=0:GOTO50:ELSE I=18:M8:GOTO80 
4^ REM 

499 REN CONGRflTULRTIONS 

580 PRINT§983,"flN EXCaLEHT MSPLflV OF TflCTICflL flBILITV ClVTfllN" 
:PRINnflB<14); "ANOTHER TURN AROUND THE OLD GRLflXV "; 
585 1NPUTFI:IFF$="N0", END ELSE ft3=i:GOTOi510 
588REH 

509 REM INSULTS 

518 !S«RND(18>;0N IS GOTO 515, 520> 525, 530, 53S> 54a 545, 558> 555, 56 
8 

515 PRINTW02,»HflS THftT EVER R DISPLflV OF TflCTICflL POHERS - VUK! 
•:G0TO565 

520 PRirfr§912, "flMOTHER BRILLIANT ROUND CflPTfllN" :I30T0565 
525 PRINT8985, "OH, NOU THAT HflS G(»00O000O0000O000O0O0OO0D!'':GOT 
0565 

530 PRINT8908,'flH, LEflDING HITH VOUR CHIN flGflIN I SEE*G0T0565 
535 PRINT8988, "STflRFLEET COMMflND FROWNS ON THOSE HHOBREflK THEIR 
SHIPS" ;(»T0565 

548 PRIMre980,"IN THE TMHORTflL WORDS OF MR SPOCK 'BOV flRE VOU fl 
TURKEY! '":G0T0565 

545 PRINT8989,"HMMMM, CflPTfllN CRflSH I PRESUME! !!!!!" :G0T0565 
550 PRINT«02, "fl SPECIflL COMMUNIQUE FROM THE FEDERATION - N E R 
D!";G0T0565 

555 PRINT0982,"ABSOLUTELV BRILLIANT - HITH VOU MHO NEEDS KLIMG 
0NS!":GOT0565 

568 PRINT9988,'H0M)ERFUL ANOTHER DAZZLING DISPLAV OF TACTICAL B 
RILLIANCE" 
565 PRIHnAB<18)i "HANT TO TRV AND SWE FACE"; :aiiT0585 

598 REM 

599 REM KLINGON GRAPHICS 

688 PRIHT§152, Kl*i : IFK4=i RETURN ELSE G0SUB968 
620POKE1571i.l43:FORT=lTO5:NEXT:K*E15711,128:POKE15775,46:a]SU 
B978:P0KEi5775, i28:P0KE15839, 129:G0SUB978:P0KE15839, 160:GOSUB970 
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: P0KEi5e39, 128:P0KE159e2, 148:Q0SUB978;P0KE159e3, 128PaJElS967. 14 

9:GOSUB970:POKE15967, 128:P0KE16821, 189:Q0SUB978:PGKE1682L 128 

638 P0KE16e95.191:G0SUB978:P0KE16e95,128:P0KE16159,m:Pa(Elffi23 

, 131 . G0SUB978 : Pa(E16159, 128 : P0KE16223, 128 : P0KE16222, 191 : Pa(Ei628 

7,191:G0SUB978:P0KE16223. 128:Pa(E16287,128:G0SUB938:8ETURN 

648 P0KE1635L191:G0ae948:P0KEi6351,128:P0KE16287.143:aBUB948: 

P0KE16287, 128:P0KE16223, 141 :G0SUB948:P»CE16223, 128:P0KE16159,133 

:(»SUB94e:P0KE16159, 128:P0KE16e95. 132.Q0SUB948:P0KE16895, 128:P0K 

E16831, 144 :l]8SUB94e:P()t(E16831. 128rP0l(E16831, 138:60SUe948 

645 raKE16831> 128:P0KE1^3> 46:Q0SUB948:P0KE15983> 128 :P0i(E15839> 

46:G0SUB94e:P0KE15839,128:RETURN 

650 CLS:B=1:C=128 :F0RMT0ie:PRIMT8RHD<ie22>." "; :NEXT:P0I«15839 

,46:60SUB928 

655 rai(E15839>S8 :G(«je948:PQKEl%39,46 :G0SUB948:P0I(E15983,46:G0S 

U^48 : Pa£159e3. C : P0i(I16831, 138 ; G09JB948 : P(]I(E16831, C : P()KE16831> 1 

44:G05U6948:PQKE16e31. C:P0KE16e?5, 132;G0SUB948 :P0KE16e95. CPOKEl 

6139, 133:QDSUB948:P0KE16159,C 

668 P0l(E16223a41.e0SUB94e:Pa(E16223,C:P0l<E16287,143 G0SUB948 :P0 

KE16287, CP0KE1635L 191 :G0SUB948:P0KE16351, C IFB=1 B=8:80SUB928: 

eOSUB655aSE 83=1:80101458 

988 FORT=lTOie08:NEXT:aS:RETURM 

910 F0irT=lT01888:NEXT:RETURN 

928 F0RT=1T0188:NEXT:RETURN 

938 F0RT=1T058:NEXT RETURN 

948 F0RT=1T018:NEXT RETURN 

950 F0RT=1T02:NEXT:RETURN 

9ffi FOR T=1T(B88:NEXT:RETURN 

978 F0RT=1T025: NEXT -RETURN 

1448 REH 

1449 REK BOOH MflffiR QRflPHICS 

1450 aS:PRINT8479, CHR$<148) :PRINTi478, STRINGf <3, 148) :PRINT847?, 
STRlt«$<5, 140) :PRINT8476, STR1N6I(7, 148) .PRIMTM75. STR1N6*(9, 148) 

PRINTW70. STRINCrfa?. 140) •PRIHTM?^. STRIWif (7. 191 ) PRINT PRIMTi 
477, "B M":6Oa)B950:aS:Pl^lNT0470,STRir«3(19,140) 
1455 PRINT0448, STRINGf (63, 140) : (^16958 : aS IF B3=l 63=8 : RETUWI 
1468 F0RT=1T015:PRINT8488+RND<288), " "; :NEXTT:FORT=1TO400:PRINT§ 
488tRND<288)," "; :NEXT:aS:RiTURN 

1498 REH 

1499 REH INTRODUCTION * ^Tl.r 
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1588 aS:PRINT§472,Cl«$<23);"SI»fleE"; :G0S18918:PRIHTCHR«<23):PRIN 

T§468,"THE FIMflL RONTIER"; -.GOSUBSia 

1518 PRINTKl, ". ":Q0ae958:aS:PRIHTTflBGl); ". -rG0SUB958;CLS PRI 

NT895. " " :Q0SUK58:aS:PRlNT^,CHR*<144):G0SUB95e:aS:PRlMTil59 

, CHRf <129) ;(iOSUB958 :aS:PRINTW59. CHR*(132) :G0SUB95e:CLS:PRINTW 

59, CHR*<176) :G09JB9M:aS:PRINTK23, CHR$(131) :Q0SUB958:aS 

1515 PRIMT8223, CHR$(148) : G0SUB948 : aS : reiNTt222, 5TRIN(j»(Z 176) : G 

0SUB95e:aS;PRlNT8286, STRIM(»(2, 111) :<i0ae958.aS:PRINT8286, STRI 

m$G, 148) :60SUB95e:aS;PRINT8286, STRIM(»(3, 176) :(30aJB958:aSPR 

IMT§347. STRING»<5, 143) :60SU8958:aS:PRlMT«47, STRINSKU, 188) 

1528 <j0SUB95e:aS:PRIMTi346,STRlN(j$(12, 176) :PRINT§4ie, STRINGt<13 

, 121) G0SUB958:aS:PRINT§345, STRIN6*(15, 188) G0SUB9S8:CLS:PRIMT8 

488, STR1H(»<15, 191) :G0SUB958:aS:PRIMT§468. STRlN(i$<23, 191) rPRIHT 

mi2. STRIN(»<22, 191) :PR1MT8596, STRIMG»(23, 191) :60SUB948 

1558 aS:Z*e:K7=8:PRlMTCHR$i:2:J); :PRINT8276,"STflR TRH("; ;PRIMT839 

8, "ENCOUNTER IN THE"; :PRINT§522, "NEAR THOLIflN SECTOR"; :PRlMTi646 

, "ENTER fl STflRDflTE (XXXX)"; :INPUTfl:ft=flB5(ft):IFfl<18880Rfi>9999,«=9 

999 

1555CLS:IFft2=l,28 

1595 fB=l:F0RT=lTOiee:PRINT#RND<1823), " "; NEXT 00508918 

1688 PRINT8158, "fl TREATY OF PEACE BETHEEN"; :PRINT8214, "THE KLIN6 

ON EMPIRE AND THE"; ;PRINT8278, "FEDERATION OF PLANETS HAS"; :PRINT 

§342, "LASTED SINCE ORGANIAN STAR"; :PRINTMe6, "DATE 3199 5 HOHEV 

ERHITH"i :PRINT8478> "THE PASSING OF AVELBORNE"; 

1618 PRINT8534, "THE KLINGONSHAVE OPENLV"; :PRINT§598, "PROVOKED H 

OSTILITIES HITH'; :PRINT§662, "FEDERATICW 91IPPING AM)"; :PRINT8726 

,"HAVE ILLEGALLY CONFISCATED"; tPRINT8798, "A VAST ANOIWT OF CARGO 

. THE"; :PRINTK54, "SPECTRE <)F tWR «»IN LOOHS"; 

1628 PRINT891&"0VER THE ENTIRE GALAXV"; :F0RT=1T018888:NEXT 

1648 E*=STRINGI(5, 176)+STRIHGf (4, 188)+STRING$(4, 176)4Crt»<144)+C 

HR$<32)+STRINGI(19, 188)+CHR$(156)+STRING$(38, 32)+CHRt(138)+CHR$( 

139)+CHR*<143)+CHRI(191)+Crt»(188)+CHR*(176)+a«*<144)+STRING»(4 

, 32)+CHR*(191)+CHR$(191)+STRING$(K, 32)+CHR$<41)+CHR$<175) 

1658 E*=E*+STRIN6«(13,191)+STRIM(»(4,143):A$="ENTERPRISE ":B$="K 

LINGON ":U=1888:L=U[2 

1668 K*=a«*<172)+STRING*(2, 188)+STRIHG$(ie, 148)+STRING*(7, 188)+ 

STRING* (6, 191)+STR1NG*<2, 188)+STRING$<5S, 32)+CHR*(139)*STRING*<7 

, 191)+CI«$<189)+CHW(144)+STRING*<54, 32)+CHR*<188)+CHR$(198)+STR 

IMGf <8, 191)+STRING*(3, 188) 
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1678 K1I=CHR$(1M>+CHR*(184)+STRING«(5, 143)+CHR$<191)+CHR*(159)+ 
CHR*<143)+STRING$(4,143>+CHR$(188)+CHR$(144)+STRIN6*(48/32)+CHRI 
<191)+STRING*<& 32)+CHRI(171)*CHR*(129)+STRIHG*<& 32)+CHR*(191)+ 
STRING$<54, 32)+CHR*<138)+STRIMG*<2, 142) 

1758 CLS:F0RT=1T0188:PRINT8RND<1823).". "i rNDOTPRINTW- "SHIP'S/ 
LOG : STflRDflTE"ifl+.l: PRINT: PRINT" THE ENTERPRISE IS IN DOCK flf 
STflRBASE 12 FOR RESUPPLV WD CREU R I R MR SKfX m> LT. SULU 
ARE SUPERVISING REPRIR OF THE WVMGRTION SENSORS"; 
1755 PRINT" WILE LT. UHURR RUNS COMJNICRT ION CHECKS HITH THE 
STflRBRSE COmO UNIT. CHIEF ENGINEER SCOH fWD HR CHEKOV RRE COND 
UCTING FIRING TEST OF THE FORHRRD PHRSER BfVKS "; 
1768 PRINTi4£8, Ui :FOR T»lT(^eee:iCXT 
1765 REN ENTERPRISE GRffHICS 

1779 PRINT»4€8>E«i :F0ROlT03:PRlNTM67,CHRI<l88}i :FORT84€7T0447 
S1EfHl:PRtNTfT,CHRI(95); :PRIMTfTfl>CHRI(32>i :IG(n:G0SUB96e:NEKT 
CrffieM K5=e:GLS:RETURN 

1786 CLSrFOR XsiTD3:PRINTCHRt(23>:PRINK218."BEEP":G(SUB94e:aS 
QOSUB9»:NEXT:GOSUB928:PRIIfTa«$(23):PRIIfTi4S0.''CIIPmW, lE'RE 
maWBi fl' :PRINTTflB(2)^*NESSHGE FROM STflRFLEET HO* rPRINTTflBd) 
;1'U. PIPE IT TO VQUR VIENER" .&E6UB9t8:G0SUB9ie 
1880 aS:M8:G0SUBi8te-)ts23;a)StJB1818:X«9:GdStl6l^:PRINTS:PRW 
T:}M2:GOSUBt818:PRIIfr;)(»581:G05UBm8:Ml:G0SUK818:O0SiS988:6 



1818 F0RTlsl1tK:RERDN:PRIKrCHRS(R>> ;Q0SUB9S8:NEXTT1.IFX«9, RETURN 

aSEPRIHTrRETURR 

1828 aS:PRINITnB(22)i 'USS ENTERPRISE" :P<tINnffi(19);SmiNGt(2a> 4 

5>:PRIWT"CflPTftirS L0G"jTflB<46)i"STflRDRTE"i8».l:PRINT:PRIHf THE 

ENTERPRISE IS NOW ENROJTE TO THOLIflN SPfCE TO RB.IEVE THE BCR 
TTLED FEDERRTION COLONIES. flL CREW NENBERS ARE IKTENSELV"; 
1825 PRINT" REVIEWING THE COMPUTER BflMCS ON KLINQON HEHPONRV I 
N PREPRRRTION FOR HHRT LIES flHERD. ft GLTHPSE OF THE LftST GflRBLED 

HESSflGE FROM OUTPOST 7 IS ALL THAT IS NECESSflRV TO REMIND US flL 
L OF THE VICIOUSNESS OF THE ENEMV.": PRINT 

1838 PRINnflB<8)i "LOj PAGE 2 COMPUTER BANK SCAN OF KLINGON UAR 
VESSEL" :PRINnAB(8)i "LOG PAGE 3 LAST TRANSMISSION FROM OUTPOST 
7":PRINTTAB<8)J"L0G PAGE 4 aOSE LOG"; 

1835 F$=" "•.F$=iri<EV*:F=VAL(Ff):IF F=8 OR F>4,1835 ELSE IF F=3,l 
980 ELSE IF F=4, 28 
1840 aS:PRINTTA8(20); "KLINQON BATTLE CRUISER" :PRINTTAB(15);"CIR 
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Cft mmim STflRDATE 2199. 5" :PRINTTflB(27>; "TOP VIEW" :PRINT :PRIN 

TTf«<29); V THIN FHD PHflSERS"; :PRINTTfiB(10);"H? 

\m "jCrt?$(94);Tfle<31)iCHRf<91);" "; 

1845 PRlNT"PLflSMfl t€flP0N";PRINT§77«l,"P0RT EW3ir€ WCELLE ";0«*( 
91); TflB(29); CW?I<91) ;PRINTT(«<29); Cffl»(32) :PRlNTTflB(29)i "IMPILSE 

EN6MS ««»":PRINTTftB<29)i "SINGLE REAR PW6ER"; 
1850 Pa<E15788/141 : PC»(E15709, 159 : Pa<E157ie, 133 : P0KE15773, 149 : POK 
El?«26, 168 : P0KE15837, 189 : POKE15%0, 176 ; KiKElSm, 191 : P0KE15958, 1 
88 • P0KE15959, 176 : Pa<E15960, 176 ; ra(E15961, 184 : P0KE15962, m : PWTi 
5963, 191 : P0KE15964, 191 : P0KE15964, 191 : P(M:15965, 191 : P0KE15966, 191 
1855 P0KE15967, 191 : PC«(E15%8, 188 . Pa(E15969, 188 : PC«il5978, 176 : POC 
E15971, 176:P0KE15972, 184:PC«E16022, 159 :FORT=16023TO16027:Pa<ET, 1 
43 : fCXT : PCKET, 191 :PCiKE16e29, 191 : Pa(E16030, 191 : FCiRT=16031TO16035 : 
POKET, 143 : MEXT : POKET, 175 : POKE160^, 133 • Pa<E16100, 138 
1^^ Fa?T=lTO3000:>€XT:CLS:K4=l:PRINTTftB<20)i "KLINGON BftTTLE CRtl 
ISER" : PRINT§130, "KW VIEW" : PRINTKSl) af«*(91 > PRINTMIS, "HflDGE" 
• PRlHTi473, "/" :PR1NT§535, "/" :PRINT§597, "/" :PRINT§642> 'Pmi VIEM" 

(MSUee^ :K4=8:PRINT§660,K$; PR1NT§724, CHR*f 91); 
1865 PRINTi774;"F«> PHftSER BFWKS"; :PRINT§838, »PLflSI*i MEftfW"; :F0 
RT=lTfJ3000 :fEXT : GOTO1820 

1900 aS;PRINTTftB(2)l"TRflNSHISSI0N FROi aJTPOST 7 RECC^ffD ON" 
i TftB(46).; "STflRDRTE";fl-12. 4:PRINTSTRIM5*<63,45) PRINT :ffilSli!910: PR 
IHT"OUTPOST 7 CW.LTNG STffi^FLEET COMMffl* (M PRIORITV CWW€L 1" ;G 
OSIB910 

1M5. PRINT "STWLEET CCME IN"; ■.aaiB910:PRINT" STf«FLEET DO 
VOU ^CflR LIS . '>":(»SUB910-PRINT"OIITPOST 7 CFLLING STflRFLEET CO 
mm - flCKMM.ED6E '":«3SUB9l0:GO5t)B910:PRINT"ST(«FLEET - ME 
m. IM)ER HEftW ftTTflCK . . . ENEMV IMNOiW '":(»SUB910: 0050891 



1910 PRINT"Oll? TRfWSMISSIONS ARE KIMS JWWED (CRfCKLE) . 

•:GOSUEi910:PRINT". . LPRGE . . EXPLOSION . . (CR«>IE) . 

l€ HfilT '":GOSUB910 :GiDSUB910:PRINT"HE'RE I«CEIV1>« ft SIGN 

«. . (CIWOIE) . . "; •(a)SUB910:PRINT" . , (CRftCKLE) . . . 

H . 

1915 (aS«910:(»SUB910:PRINT" ¥E WH SEE SOCTHING CW TVE mi 
N SCREEN - STW© E?!'":GO9«910:PRINT" ( CRfiCKLE) . '; :G0SUB91 
0:PRINT"I1V GOD, THEV ARE KLINGONS '":GOSUB910:PRINT"ME . CAN 

'T TftKE flW)T«R DIRECT HIT !" 
1920 6OSU8910:PRINT"SHITCHH« TO MAIN VIEWER "; :GOSUB9i0:PRlNT" 
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^ STRRFLE ET DO VOU CflPV . . ?-:GOSUB910:PRINT". . . <CR 

(CKLE) . . ",• :G0SUB98e 

1938 aS:PRINTCHRf(22) :PRINTi3S4, ; TflB(18); "EftRTHLINGS" :PRIMTTflB< 
2); »PREP(«E TO MEET VOUR D00M":PRINTTfl8<l>; "BV THE HflNDS OF THE 
W-IMTON" :PRINTTflB<12); «EHPIRE" :G(BUB910:«)SUB988;GOSUB608:GOSUK 
20: IFO=l, IG=0:RETURN:ELSE {»SUB145e;G0aB918 

1935 PRINT0460, • (CRflOai) . "j :(»SUB910:PRINT" . . (CRfi 

CKLE) . ":(»SUB900:PR1NTW70,"EM) OF TRflNSHISSION":6OSUB910:G 

OTO1820 

2000 D«T^?, 79, 71, 7?.B5. 78. 73, 81, B5. 69, 78, 82, 79, 77, 32, 83, ?*♦, 65, 8 

2, 70, 76, 69, 69, 84, 32, 67, 79, 77, 77, 65, 78, 68, 32, 83, 84, 65, 82, ftj, 65, 84 

, 69, 32, 65, 76, 69, 82, 84, 32, 83, 84, 65, 84,®. 83, 75, 76, 73, 78, 7:1, 79, 78, 

32, 66, 65, »», 84, 76. 69, 32, 67, 82, 85, 73, 83, 69, 82, 83, 32 

^0 0flTfl72, 65, 86, 69, 32, 66, 69, 69, 78. 32, 67, 79, 78, 68, 85, 67, 84, 73, 7 

8, 71, 32, 83. 79, 82, 84, 73, 69, 83, 32, 65, 67, 82, 79, 83. 83. 32. 84, 72. 69, 32 

, 78. 69, ®, 84, 82, 65, 76, 32, 98, 79, 78. 69, 32, 65, 71, 65, 73. 78, 83, 84, 32, 

78,69,68,69,82,65,84,73,79,78,32,79,85,84,80,79,83,84.32 

2828 DflTf^7, 79, 76, 79, 78, 73, 69, 83, 32, 65, 76, 79, 78, 71. 32. 84, 72, 69, 3 

2, 84, 72, 79, 32, 45, 76. 73, 65, 78, 32, 65, 78, 68, 32, 71, 79, 84, 72, 79. 83. 73 

, 65, 78, 32, 83, 69, 67, 84, 79, 82, 83, 46, 32, 79,85, 84, 88, 79, 83, 84, 83, 32, 

55, 32, 65. 78, 68. 32. 56, 32, 72, 65, 86, 69, 32, 66, 69, 69, 78, 32 

2030 0ftTfl68, 69, 83, 84, 82, 79, 89, 69, 68, 65, 83, 32, 87, 69, 76, 76. 32, 65, 8 

3, 32, 78. 69. 68. 69, 82, 65, 84, 73, 79, 78, 32, 83, 84, 65, 82, 83, 72, 73, 80, 83 

, 32. 86, 65, 76, 73, 65, 78. 84, 32, 65, 78, 68, 32, 67, 79, 78, 83, 84, 69, 76, 76, 

65,84,73,79,78,46,32.89.79.85,82,32 

2835 l>flTfl77, 73, 83, 83, 73, 79, 78, 32, 73, 83, 32, 84, 79, 32, 73, 77, 77, 69, 6 

8. 73. 65. 84. 76. 89, 32, 76, 69, 65, 86. 69, 32, 83, 84, 65, 82,66, 65, 83. 69, 32 

,49,50,32,65,78,68,32,77.65,75.69,32.70.79.^.32.84.72,69,32,79, 

85, 84, 32, 80, 79, 83, 84, 32, 65, 83, 84, 82, 79, 73, 68. 83, 32, 65, 78, 68, 32 

2040 DflTfl80. 65. 84, 82. 79. 76. 32, 84, 72, 69, 32, 78, 69, 65, 82, 32, 84. 72. 7 

9, 76, 73, 65, 78, 32, 83, 69, 67, 84, 79, 82, 46, 32, 89, 79, 85, 32, 65, 82, 69, 32 

, 84, 79, 32, 69, 78, 45, 71, 65. 71, 69, 32, 65. 78. 68. 32. 68. 69. 83, 84, 82, 79, 

89, 32, 84, 72, 69, 32, 75, 76, 73, 78, 71, 79, 78, 32, 82, 65, 73, 68, 73, 78. 71. 3 

2 

2050 DflTfl80. 65, 82, 84, 73, 69, 83, 32, 79, 88, 69, ffi, 65. 84, 73, 78, 71, 32, 7 

3, 78, 32, 84. 72. 65, 84, 32, 32. 83. 69. 67. 84. 79, 82. 46, 32, 78, 65, 73, 76, 85 

, 82. 69, 32, 87, 73, 76, 76, 32, 77, 69, 65, 78, 32, 84, 72, 69, 32, 76, 79, 83, 84, 

32,79,78.32,84.72,69,32,70,69,68,69,82,65,84,73,79,78,46 

2060 DflTft32, 32, 71, 79, 79, 68, 32, 76, 85, 67. 75 
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A) For sound input (see SoftSkto. March 1980, "Sonic Torpedoes") it is 
neither necessary to CLS nor to PRINTCHR$(28) to reset the INP value. 
OUT255,2 does the same thing without disturbing the screen. Simply 
OUT255,2 after sound has been detected to reset INP. 

B) To use sound input without pulling the REMOTE plug (the dummy 
MIC plug must still be out), use a loop with OUT255.55. This both resets 
the INP value and runs the recorder, though an occasional "BZEET" 
from the cassette-recorder relay will be heard as a side effect. 

Example 1-A: 
10CLS:FORX=0TO127:SET(X.10*INT(INP(255)/127)):OUT255.2: 
NEXTrQOTOlO 
Example 1-B: 

to CLS 

20OUT255.55:IFINP(255)=256THENPRINT"SOUNDH"; 
30 QOTO20 

Thomas HanHn III 

With respect to "unNEWed" programs (SoftSide. March 1980. 
Programming Hint #4): such programs may be RUN, LISTed or CSAVEd. 
but don't EDIT them! This, for some inexplicable reason, sends the 
computer off to some mechanical limbo. 

Thomas Hanlln III 

Many fascinating effects may be obtained by POKEing various values 
into memory location 16396 and pressing BREAK. Some of the more 
interesting ones are listed below. Warning: some values will make the 
computer revert to MEMORY SIZE? when BREAK is pressed, so don't 
fiddle around if you have an important program in memory. 
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"BREAK" Chart: POKE16396,X 



"X" Value Result when BREAK pressed 

15 Looks like blank space, but shows up and END if entered 

after a line nunnber and LISTed. 

125 "U" when SHIFT BREAK, "T" when BREAK. 

157 Graphics characters: one if BREAK, different for SHIFT 
BREAK. These can be assigned to a string variable and 
used like Super Graphics (see PROQ/80, March 1979, 
May 1979). -^ 

165 BREAK itself is disabled, but SHIFT BREAK works like 

ordinary BREAK. Very useful to prevent accidental 
BREAKing while retaining BREAK capability. 

233 Like pushing the reset button. 
Thomas Hanlln III ^^ 

Disable Reset 

To disable to reset key in back of the keyboard, modify memory 
locations 4007H and 4008H by putting the value of where you wish the 
program control to jump to (ADDRESS) in these locations. Put the MSB 
in 4008H and the LSB in 4007H. NOTE: these values cannot be POKEd in 
from BASIC but can be set via a USR subroutine. 

Disable the Keyboard 

To disable the keyboard for any reason POKE 16405,0. The entire 
keyboard will be disabled until you POKE 16405,1 . NOTE: Be sure to do 
this under program control, if done in the command mode you will not be 
able to re-enable the keyboard. 

Phillip Case 
Springfield, MO 65802 




PLAY IT AGAIN, SAM 

(February, page 56) lines 1050, 3010, 3040, 3050, 3080 

These lines may be too long for direct entry. Type as far as you can, then 
go into EDIT and finish them. 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES — FIX YOUR DOS! 

NEWDOS, by Apparat, corrects over 70 erors and omissions in TRSDOS 2.1 
and disic BASIC, yet they are completely compatible! Programs SAVEd under 
either system need no modification to work with the other. Like going from 
Level I to Level II: more power, convenience and speed. 

NEWDOS FEATURES: 

* Use all DOS commands (DIR. FREE. RENAME. COPY etc.) from BASIC. 
' AUTO LOAD an<J RUN a BASIC program from power-up. 

* Produce variable and constant cross reference tables. 

* OPEN "E" to add to the end of a sequential file. 

* Send whatever is on the screen to your printer, even in DOS (great for DIR). 

* Renumt>er BASIC programs, 
and more... 

Fully documented; available on disk for only $49.95 

NEWDOS+ features.- 
ALL of the above PLUS: 

* Editor/Assember for disk 

* Z80 Disassembler 

* LMOFFSET to relocate and save SYSTEM tapes to disk 

* Levef t BASIC language with disk I/O 

* OIRCHECK to check and LIST disk directory 

* SUPERZAP-di&play/i>riht/modify any location in RAM or on disk (worth the price of the entire package 
when you resurrect that accidentally KiLLed file!). 

NEWDOS+ on disk with documentation, fust $99.95 



NEWDOS/80 "the DOS for the Eighties" 

Brand new from Apparat, their most powerful DOS ever. 
EVERYTHING In NEWDOS and NEWDOS+ and more: 

* Variable length records (up to 4096 bytes). 

* Mix or match your disk drives: 35, 40 and 77 track drives can be used In any 
combination — even with 8 Inch drives. 

* New security boot-up sequence makes It Impossible for the unauthorized to 
BREAK or LIST. "DOS READY" and "^READY" need never appear. 

* Enhanced RENUMBER allows relocation of subroutines. 

* Powerful program CHAIN Ing. 

* Option to PRINT on display and printer simultaneously. 

* Execute DOS commands — from DOS — without disturbing your resident 
BASIC program. 

Put the "DOS of the Eighties" to work for you. 

On disk, with ail documentation ........... $149.00 




TheSa/h&areEjadhamge 

6 SouthStreet,Box 68,Milford,NH 03055 603-673-5144 
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TOLL FREE 
1^800-258-1790 

IN NH CALL (603) 673-5144 



QAMiS 

TRS«€0 Op«ra Ttieatro 

Magnificent sound! 
by Richard Taylor, 

Level H, 16K .$9.95 

Challenge 

Word game with iso und 

by Richard Taylor 

Level II. 16K V .$9.96 

Opera Theatre Plus Challenge 

on disk, 32K $19.95 

Bridge Challenger 
by Personal Software 

Level II. 16K $14.95 

Invasion 

Level II, 16K ....... ... .... . . $9.95 

Disk $14.95 

Amazin' Mazes 

by Robert Wallace 

Level II, 16K ...$7.95 

X-WIng Fighter 11 

by Chris Freund 

Level II. 16K .$9.95 

Taipan 
byArtCanfil 

Level II. 16K .$9.95 

Sargon Cheat 

by Dan and Kathe Spracklen 

Level II, 16K $19.95 

Sargon ii 

by Dan and Kathe Spracklen 

Uvel II. 16K $29.96 



Snake iggs 

by teo Christopherson 
With sound 

Level II, 16K $14.95 

UfeTwo 

by Leo Christopherson 

With sound 

Level II. 16K $14.95 

Android Nim 

by Leo Christopherson 

With sound. 

Level 11. 16K $14.95 

Bee Wary 

by Leo Christopherson 

With sound 

Level II. 16K .................... $14.95 

Mattermlnd 

by Lance Micklus 

Level 11. 16K .$7,95 

Tycoon 

by David Bohike 

Level II, 16K .$7.95 

9 Qamea for Praachool ChlidJren 
by George Blank 

Level II, 16K .$9.95 

End Zone II 

by Roger W. Robitaille 

Level II, 16K .$9.95 

Space Battles 
by Level IV 

Level II, 16K tape $14.95 

32K d isk $ 19.95 

Star Trek 

by Lance Micklus 

Level II, 16K. ... . . . ... ... . $14.96 
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Ad¥«ntur»» on Tap« 

by Scott Adams 

Level II. 16K $14.95 

Choose one: 
Adventureiand: Magical beings, 

perils and puzzles! 
Pirate's Cove: Clue in a 

btoodsoaked book. 
Mission Impossible: Foil the sabo- 
teur, save the reactor! 
The Count: Protect your neck! Who 

do you think lives here? 
Voodoo Castle: Remove the curse 

from Count Christo. 
Strange Odyssey: The ruins of an 

ancient alien culture? 
Fun House: Takes all your brains to 

get past the gate! 
Pyramid of Doom: Watch out for 
the Nomad! 
Adventures on Disk 
by Scott Adams 
$39.96 for three-game combinations: 

1) Mission Impossible. Pirate's 
Cove. Adventureiand 

2) Voodoo Castle, The Count, 
Strange Odyssey 

$24.95 for two-game combinations: 

3) Fun House, Pyramid of Doom 
Adventure Sampler 

by Scott Adams 

Mini-version of Adventureiand, 

serves as introduction 

Level II. 16K .$5.95 

Pork Barrel 

by George Blank 

Level II. 16K $9.95 

Barricade 

by Small Systems Software ^ 

Machine Language $9.95 

Pentomlnoes 
by James Garon 

Level II, 16K $7.95 

Mean Checkers Machine 
by Lance Micklus 

Level II, 16K tape $19.95 

Disk $24.95 

Krteg^^el 
by Ron Potkin 

Level II. t6K $7.95 

TimeTiek 

by Joshua Lavirtsky 

Level II. 16K $14.95 

ICamikaze 

by RusseH Starkey 

Levelfl. 16K . , $7.95 

WOFdO 

from Microfantastic Programming 

LeveMUISK $14.95 

Micro ChM^tJ 

LeveHortt»4K $10.95 

an 



from Quality Software 

Level II, 16K $19.95 

Cribbage 

by Roger W. Robitailie Sr. 

Level II. 16K $7.95 

Galactic Empire 
by Doug Carlston 

Level II. 16K $14.95 

Galactic Trader (a sequel) 
by Doug Carlston 

Level 11. 16K $14.95 

Galactic Trader and Empire 

on disk 32K $29.95 

Air Raid 

by Small Systems Software 

Level I or II. 4K . . . . . ., .$9.95 

Lost Dutchman's Gold 
by Teri Li 

Level II. 16K $9:95 

Original Adventure 

by Microsoft as played on PDP-10 

32K disk $29.95 

PIgakin (Football) 
by Acorn Software 

Level II, 16K $9.95 

PR Dogfight 
by David Bohike 

Levelll.16K ....$7.95 

Ting Tong 

from Acorn Software 

Machine Language, with sound 

Level II, 16K $9.95 

Journey to the Center of the Earth 

by Greg Hassett 

Level II, 16K ..$7.95 

See SoftSide on cassettes for addi- 
tional games 

BUSINESS 

Inventory System 11.3 

by M. Keileher 

Improved version $79.95 

Inventory 'S* 

by Roger W. Robitailie. Sr. 

Level 11. 16K tape $24.95 

32K disk/ 

without invoicing $39.95 

with Invoicing $59.95 

Payroll 

by Stephen Hebbler 

Dlsk32K $39.95 

Appolnlment Log 

by Michael Ketieher 

Level II. 16K $9.95 

Mall Uat tl by SBSG 

32Kdisk $99.9S 



Small Butlfittt BookkMpIng 

by R.W. Rofoitailte. Sr. 
Level II. 16K with journal 

disk $36.95 

tape $31 .95 

without journal 

disk $29.95 

tape $24.95 

On Line Invoicing 

by Stephen Hebbler 

1 disk, manual: 32K. 1 drive, line 

printer $39.95 

Accounts Receivable 

(with invoicing) 

by Stephen Hebbler 

3 disks, 2 manuals; 32K. 2 drives, line 

printer $69.95 

CCA Data Management System 

from Personal Software 

Tape, ready for transfer to disk, with 

manual $74.95 + $2 

SPECIAL PURPOSE 

Hittograph/Scatlergram 

by Gary Breschini 

Level H, 16K $9.95 

Keyboard 80 (Improved) 
by John Adamson 

Level H, leK $9.95 

TInyComp 

by Oavid Bohike 

A BASIC Compiler in BASIC 

Tape , $19.95 

Disk $24.95 

RPN Calculator 

by Russell Starkey 

Level II, 16K ; $9.95 

Ham Radio 

by Michael Kelleher 

Level II. 16K $9.95 

Ham Radio 

Advanced version for 32K 

disk $24.95 

Eleetronle Aatlatant 

by John Adamson 

Level II, 16K $9.95 

Baaic Statlalica 
by Steve Reisser 

Level II. 16K $9.95 

Magic Paper Calculator 
by Russell Starkey 

LeveNl.ieK $14.95 

Texl-«0 

by Prank B. Rowiette, Jr 

32K disk systems $59.9S? 



Electric PehcH 

by Michael Shrayer 

Powerful machine language word 

processing system 

Level II. 16K tape $100.00 

disk $150.00 

Pencil Pal 

by Microcomputer Specialists 

Requires 32K, 1 disk system. Electric 

Pencil, and lower case modification 

kit.. $35.00 

Dynamic Data Base 

by Ken Knecht 

Manual and 3 programs on disk for 

32K or larger systems with one or 

more drives $39.95 

PERSONAL 

Typing Tutor 

by 80 US 

Level II. 16K $19.95 

Secrets of the Tarot 
by John T. Phillipp 

Level II, 16K $9.95 

Idling 

by John T. Phillipp 

Level II. 16K $7.95 

Numerology 

by John T. Phillipp 

32Kdi8k $14.95 

Biorhytfima 

by Frank B. Rowiette, Jr. 

LeveMI. 4K $4,95 

Personal Finance 
by Lance Micklus 

Level II. 16K $9.95 

Advanced Personal Finance 
by Lance Micklus 

32K disk $24.95 

Home Financial Management 
by Michael Kelleher 

Level II. 16K $9.95 

Periodical Cross Reference 
by Dave Stambaugh 

Level II, 16K $14.95 

32K disk $19.95 

Roots 

by Bill Sholar 

32Kdisk $19.95 

UTILITIES 
T-8hort 

by Web Associates 

Level IL 16K $9.95 
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by Phetps Gates 

Deluxe verslon~-32K disk, 

instructional matertat book 

......$49.96 + $3 

Level H, 16K tape— reduced features, 

no course or book $$14.95 

Book (separately) $15.95 + $3 

File Manager 80 

by Nepenthe 

32K disk $49.95 

Automateif DIek Directory 

by George Blank 

32K disk . . $14.95 

Requires NEWDOS 

STAD 

Trace and Debug Monitor for tape 

and disk systems 

16, 32 and 4eK on one tape $24.96 

NEWDOS 

by Apparat 
,. $49.95 

NEWDOS+ 

by Apparat 
$99.95 

NEWDOSSO 

by Apparat 
$149.95 

RSM2 

by Small Systems Software 

Level n. 16K $26.95 

RSM2D 

by Small Systems Software 

Disk for 16-48K on one tape . . . . . $29.96 

KVP 

by Lance Micktus 

Tape $24.95 

Disk $29.95 

KVP 232 

by Lance MIcklus 

KVP adapted for the TRS-232 

Tape $24.95 

ST80 Smart Terminal 

by Lance MIcklus 

Level II, 16K $49.95 

ST80D Smarter Terminal 

by Lance Micklus 

For Disk $79.95 

ST80-UC 

by Lance Micklus 

Dedicated to THE SOURCE 

Level II. 16K $24.95 

ST80III 

by Lance Micklus 
$150.00 



Micro Text EdHor 

by Don Coons 

Level II, 4K or 16K $9.95 

Level III BASIC 
by Microsoft 

$49.95 

Uwel I in Uvel II 
by Apparat 

Level II, 16K $15.00 

FORTRAN 
by Microsoft 

32K, 2dlsks $80.00 + $2.50 

Assembler 

by Microsoft 

32K ................... .. $80.00 + $2.50 

FORTRAN Plus Assembler 

New low price — . ... . . . . . $15000 + $5 

Spool 

Will print an ASCII file to*^ a parallel 

line printer at the same time you are 

using your computer for another 

program. For 32K disk systems only. 

Will NOT work with NEWDOS (2.3 or 

VT0S3.)0K). 

Disk $24.95 

Cross Reference Utilities 
by Lance Micklus 
Level II cassette versions 

XREF...... $19.95 

RENUMX (XREF with RENUMBER 

and rescue after reset) $24.95 

RENUMBER separately $7.95 

RX— Cross Reference for Disk 
by Lance Micklus 

32K,1 disk $24.95 

RENUMBER 

by Lance Micklus 

The full-featured RENUMBER 

program. One version now works In 

16K, 32K, or 48K .$7.95 

System Copy 

by Kalman Bergen 

Level II, 16K .$9.95 

Floppy Disk Diagnostic 

by Dave Stambaugh 

Disk with manual $24.95 

BOOKS 

Sargon Handbook 

by Dan and Kathe Spracklen 



. $15.95 + $1 



The BASIC Handbook 

by Dr. David A. Lien 
...., $14.95 + $1 

Z-80 Instruction Handbook 

by Sceibi Publications 
$4.95 + $1 

The Little Book of BASIC Style 

by John Nevison 
$5.95 + $1 

TRS-80 Assembly Language 
Programming 

by William Barden, Jr. 

..$3.95 + $1 

APL — An Interaactive Approach 
by Gil man and Rose 

..........$15.50 + $3 

Introduction To TRS-80 Graphics 
by Don Inman 

$7.95 + $1 

Learning Level II 

by Dr. David A. Lien 
$15.95 + $1 

Z-80 Software Gourmet Guide and 
Cookbook 

from SceIbi Publications 

$14.95 + $1 

TRS-80 Disk and Other Mysteries 
by Harvard Pennington 

$22.95 + $1 

TRS-80 Interfacing 
by Jonathan Titus 

$8.95 + $1 



SUPPLIES 

Cassettes: Boxes of 10 each 

C-10 $6.50 + $1 

C-20 $7.50 + $1 

Diskettes: 

Dysan (premium quality) 

Box of 5 $29.95 + $1 

BASF 

Box of 5 $24.95 + $1 

Box of 10 $39.95 + $2 

Box of 20 .... , . f$69,95 + $2 

Case of 100 $299:00 + $3 

Diskette Storage Box $5.00 + $1 

Floppy Armor"" 

Protective envelopes for shipping 

floppy disks. 

5 pack $4.95 t $1 

Z-80 Chip Poster. . ......... . $3.99 + $1 

SoltSide Vinyl Binders ....... $4.95 + $1 

Tape Recorder Alignment Kit . $9.95 + $1 

IMPORTANT 

■ No sales tax. 

■ Ail C.O.D.'s or special delivery orders are 
a minimum of $5 for special handling. 

For more detailed descriptions of our soft- 
ware and supplies send for the TSE Catdlog 
- it's FREE! Write or call today for your 
copy: 
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SCELBi'S Secret Guide to Computers 

This book will turn you into a computer expert quickly and easily. 
YouHi learn BASIC, having fun every step of the way. The book ex- 
plains how to deal with computer machinery, which buttons to press, 
and trains you to write many kinds of programs. The author's 
"underground" style of writing Is sure to hold your interest. This book 
contains 150 sample programs, analyzes them and gives you hints on 
how to invent your own.Charts are given comparinf the different com- 
puters. Order now from The Software Exchafige,6 South St., Milford, 
NH 03055. 1-800-258*1790 (In NH call 673-5144). 

Only $5.95 plus $1. handling 

lleSaiikaiv 
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"ffiiS Order Form 

Special prices in effect 60 days from mailing 
DESCRIPTION MEMORY LEVEL PRICE 




THE SOFTWARE EXCHANGE 

6 SOUTH STREET MILFORD, NH 03055 
Order toil free: 1-800-258-1790 (in nh cm 673-5144) 

Level ti software avaiiabie on disk for a $5.00 (per order) medium charge. This 
extra fee is for arty number of programs transferred to disk from tape when you 
order. If the order exceeds the capacity of a single disk, we absorb the extra 
cost. 

Be sure to include handling charge and any additional charges when figuring 
your total. All orders shipped within 48 hours 

AH prices ere eubiect to change withowt notice. We are not responsible for 
typoflraptilcel en^orSr Including Incorrect pricee. 



Charge card account number 



TOTAL ENCLOSED WITH ORDER 

Check VISA fviaster Charge 

Money Order mitHm 

ALL SOFTWARE GUARANTEED TO LOAD AND RUN If you experience 
difficulties, simply return the tape or disk for free replacement. Send to the 
attention of Bette Keenan, Customer Service Representative; please 
enclose a brief note and your name and mailing address with the software. 



Signature.. 



:: Exp. Date Inter. #., 



Charge customers: Please fill in account information above and below 
Name ^ 1. 



Address.. 
City 



.State.. 



..ZIP.. 



ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE 

assumes no liability for loss or damage caused or alleged to be caused directly 
or indirectly by equipment or products sold or exchanged by them or their 
distributors, including but not limited to any interruption in service, loss of. 
business or anticipatory profits or consequential damages resulting from use or 
operation of such equipment or software. 



r'5jrai' 



POBwM 

MiHord.NHOMSS 

"'jiiM ■ntirwnMM^w^Mi 



Rush me the next 12 issues of SoftSide. 



a USA bulk. $18 1 yr. a$32-2 yrs. 

DUSA first class $25 1 yr. 

D APO/OVERSEAS surface $25 1 yr. 

Credit Card -^C 



DCANADA/MEXICO $25 1 yr. 
DOVERSEAS airmail $30 1 yr. 



TtliBlwm ymir elMitv.flflfd mdml Call 
our Subacrlptlon off lo» Monday throuori 
Friday 9:30 to 5:MJEutarn tlma) at 
1 wm Ml 1710 (inliraaH •7i-«i44) 



Exp. Date. 
Signature. 

Name 

Address— 
City 



Interbank # (M/C only). 



-State- 



Zip- 



Please remit in US funds ONLY 



Ready to get serious? SUBSCRIBE TO PfCE/BD the magazine 
dedicated to serious programmers. . .beginners to professionals 



SUUCRIPTION RATES - • 
USA Cw»d« 

Bulk mnl - SI 5.00 Maxioo $21 00 

First Class Mail - $21.00 APO/FPO 

OvoraaoB airmail - S27.00 Ovaraoaa surfaoa mall 



] 



Q ClMflfc/Manay Ordar i 

SIGNATURE 

AOCOUNTS 

■RP.DAIC 



diarfa O VISA 



.INTBLf 



STATE 



-ZIP- 



aooaplad for Maalar Charga or VISA aooountt. Call 
Friday. S:30 to S:30 EST at t-SOa^M-lTM (to NH 
PO BOX %B, MILFORD, NH 03055 



through 
•y>«i44} 
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by Roger W. Robitaille, Sr. 

Rough and tumble gridiron action, from the toss of the coin to 

th»' 2-mmute warning ...four 15-minute quarters, provisions for 

interceptions, touchbacks, 

outs, tumbles, penalties. 

Everything except .-*^— **^^BH^ . / / ^K KL^ M i 

the cheerleaders 



time- / 




Level II, 16K 

Price, $9 y.S 



h SdithStntlJioxNi.MilkmiNHanry'-, ii[)i-(Ci-'\}'U 
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